From: Ivan Kohler <ivan@freeside.biz>
Date: Mon, 21 Oct 2013 03:42:45 +0000 (-0700)
Subject: strip non-digits from contact_phone.phonenum, RT#24052
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=275ce0155bd34829ee97b3f0ca48228ca3c5daca

strip non-digits from contact_phone.phonenum, RT#24052
---

diff --git a/FS/FS/contact_phone.pm b/FS/FS/contact_phone.pm
index ad8e8f737..55cb09dc3 100644
--- a/FS/FS/contact_phone.pm
+++ b/FS/FS/contact_phone.pm
@@ -124,6 +124,10 @@ sub check {
   ;
   return $error if $error;
 
+  #strip non-digits, UI should format numbers per countrycode
+  (my $phonenum = $self->phonenum ) =~ s/\D//g;
+  $self->phonenum($phonenum);
+
   $self->SUPER::check;
 }
 
@@ -131,8 +135,6 @@ sub check {
 
 =head1 BUGS
 
-The author forgot to customize this manpage.
-
 =head1 SEE ALSO
 
 L<FS::Record>, schema.html from the base documentation.