From: ivan <ivan>
Date: Fri, 17 Aug 2001 11:28:03 +0000 (+0000)
Subject: canada has same phone# rules as US
X-Git-Tag: freeside_1_4_0pre11~437
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=898aa3474d66a76b84cc9508f96618d2be1a27ed;p=freeside.git

canada has same phone# rules as US
---

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