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, '');