MV_VALID_PROVINCE — (partly documented)
Interchange 5.7.0:
Source: lib/Vend/Order.pm
Line 1150 (context shows lines 1140-1154 in _state_province():1143)
$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 1185 (context shows lines 1175-1189 in _province():1183)
}
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, '');