diff options
| author | ivan <ivan> | 2001-08-17 11:28:03 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-08-17 11:28:03 +0000 |
| commit | 898aa3474d66a76b84cc9508f96618d2be1a27ed (patch) | |
| tree | 46c5aa33a867aca8dae34ac656e57ff8a0d35daa | |
| parent | 94d7e3f0d3431fc1a16afea163367a79ccc78d95 (diff) | |
canada has same phone# rules as US
| -rw-r--r-- | FS/FS/Record.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/Record.pm b/FS/FS/Record.pm index 6409da33d..11255f4b0 100644 --- a/FS/FS/Record.pm +++ b/FS/FS/Record.pm @@ -730,7 +730,7 @@ sub ut_phonen { my $phonen = $self->getfield($field); if ( $phonen eq '' ) { $self->setfield($field,''); - } elsif ( $country eq 'US' ) { + } elsif ( $country eq 'US' || $country eq 'CA' ) { $phonen =~ s/\D//g; $phonen =~ /^(\d{3})(\d{3})(\d{4})(\d*)$/ or return "Illegal (phone) $field: ". $self->getfield($field); @@ -949,7 +949,7 @@ sub DESTROY { return; } =head1 VERSION -$Id: Record.pm,v 1.21 2001-08-11 05:50:52 ivan Exp $ +$Id: Record.pm,v 1.22 2001-08-17 11:28:03 ivan Exp $ =head1 BUGS |