MV_VALID_STATE — (partly documented)
Interchange 5.9.0:
Source: lib/Vend/Order.pm
Line 1168 (context shows lines 1158-1172 in _state_province():1158)
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} "
: $state_template{US};
$error = 1
unless $sval =~ /\s$val\s/i or $pval =~ /\s$val\s/i ;
Source: lib/Vend/Order.pm
Line 1184 (context shows lines 1174-1188 in _state():1182)
if($error) {
return (undef, $var,
errmsg( "'%s' not a two-letter state or province code", $val )
);
}
return (1, $var, '');
}
sub _state {
my($ref,$var,$val) = @_;
my $sval = $::Variable->{MV_VALID_STATE}
? " $::Variable->{MV_VALID_STATE} "
: $state_template{US};
if( $val =~ /\S/ and $sval =~ /\s$val\s/i ) {