diff options
| author | Ivan Kohler <ivan@freeside.biz> | 2013-10-20 20:42:45 -0700 |
|---|---|---|
| committer | Ivan Kohler <ivan@freeside.biz> | 2013-10-20 20:42:45 -0700 |
| commit | 275ce0155bd34829ee97b3f0ca48228ca3c5daca (patch) | |
| tree | ad4f60b03cdd7e6a47753ec647fb932e1d4df319 | |
| parent | e7f2082c627a349e4556d00023f4dae317b2591d (diff) | |
strip non-digits from contact_phone.phonenum, RT#24052
| -rw-r--r-- | FS/FS/contact_phone.pm | 6 |
1 files changed, 4 insertions, 2 deletions
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. |