X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/kivitendo-erp.git/blobdiff_plain/53d80f2a01439ee73cf679c53326ec8fb32ab1ed..f82e94c7cbbea66d902e286c531d2282fc69f67c:/SL/CTI.pm diff --git a/SL/CTI.pm b/SL/CTI.pm index 8605ff163..3bc13860e 100644 --- a/SL/CTI.pm +++ b/SL/CTI.pm @@ -40,9 +40,10 @@ sub sanitize_number { my $idp = $config->{international_dialing_prefix} // '00'; my $number = $params{number} // ''; - $number =~ s/[^0-9+\.-]//g; # delete unsupported characters + $number =~ s/[^0-9+]//g; # delete unsupported characters my $countrycode = $number =~ s/^(?: $idp | \+ ) ( \d{2} )//x ? $1 : ''; # TODO: countrycodes can have more or less than 2 digits $number =~ s/^0//x if $countrycode; # kill non standard optional zero after global identifier + $number =~ s{[^0-9]+}{}g; return '' unless $number;