MV_VALID_PROVINCE — (partly documented)
Interchange 5.9.0:
Source: lib/Vend/Order.pm
Line 1165 (context shows lines 1155-1169 in _state_province():1158)
$val =~ /^[ABCEGHJKLMNPRSTVXYabceghjklmnprstvxy]\d[A-Za-z]\d[A-Za-z]\d$/;
};
sub _state_province {
my($ref,$var,$val) = @_;
my $error;
if(length($val) != 2) {
$error = 1;
}
else {
my $pval = $::Variable->{MV_VALID_PROVINCE}
? " $::Variable->{MV_VALID_PROVINCE} "
: $state_template{CA};
my $sval = $::Variable->{MV_VALID_STATE}
? " $::Variable->{MV_VALID_STATE} "
Source: lib/Vend/Order.pm
Line 1200 (context shows lines 1190-1204 in _province():1198)
}
else {
return (undef, $var,
errmsg( $state_error{US}, $val )
);
}
}
sub _province {
my($ref,$var,$val) = @_;
my $pval = $::Variable->{MV_VALID_PROVINCE}
? " $::Variable->{MV_VALID_PROVINCE} "
: $state_template{CA};
if( $val =~ /\S/ and $pval =~ /\s$val\s/i) {
return (1, $var, '');