SL::CTI::sanitize_number: nur Ziffern zurückliefern

diff --git a/SL/CTI.pm b/SL/CTI.pm
index 8605ff163485d7fe1501d9b56121b04139bd4b9d..3bc13860e67b1ce3ed2417460141954fd88b34e8 100644 (file)
--- 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} // '';
   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
   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;
 
 
   return '' unless $number;
 

diff --git a/t/cti/call_link.t b/t/cti/call_link.t
index ce762399bbadcb11fb5df537c567cc6e268befe7..994a348566dfd1a5079bc11f3dea5add535c6f3e 100644 (file)
--- a/t/cti/call_link.t
+++ b/t/cti/call_link.t
@@ -12,11 +12,11 @@ use_ok 'SL::CTI';
 }
 
 is SL::CTI->call_link(number => '0371 5347 620'),        'controller.pl?action=CTI/call&number=03715347620';
 }
 
 is SL::CTI->call_link(number => '0371 5347 620'),        'controller.pl?action=CTI/call&number=03715347620';

-is SL::CTI->call_link(number => '0049(0)421-22232 22'),  'controller.pl?action=CTI/call&number=0049421-2223222';
-is SL::CTI->call_link(number => '+49(0)421-22232 22'),   'controller.pl?action=CTI/call&number=0049421-2223222';
+is SL::CTI->call_link(number => '0049(0)421-22232 22'),  'controller.pl?action=CTI/call&number=00494212223222';
+is SL::CTI->call_link(number => '+49(0)421-22232 22'),   'controller.pl?action=CTI/call&number=00494212223222';

 is SL::CTI->call_link(number => 'Tel: +49 40 809064 0'), 'controller.pl?action=CTI/call&number=0049408090640';
 
 is SL::CTI->call_link(number => '0371 5347 620',        internal => 1), 'controller.pl?action=CTI/call&number=03715347620&internal=1';
 is SL::CTI->call_link(number => 'Tel: +49 40 809064 0'), 'controller.pl?action=CTI/call&number=0049408090640';
 
 is SL::CTI->call_link(number => '0371 5347 620',        internal => 1), 'controller.pl?action=CTI/call&number=03715347620&internal=1';

-is SL::CTI->call_link(number => '0049(0)421-22232 22',  internal => 1), 'controller.pl?action=CTI/call&number=0049421-2223222&internal=1';
-is SL::CTI->call_link(number => '+49(0)421-22232 22',   internal => 1), 'controller.pl?action=CTI/call&number=0049421-2223222&internal=1';
+is SL::CTI->call_link(number => '0049(0)421-22232 22',  internal => 1), 'controller.pl?action=CTI/call&number=00494212223222&internal=1';
+is SL::CTI->call_link(number => '+49(0)421-22232 22',   internal => 1), 'controller.pl?action=CTI/call&number=00494212223222&internal=1';

 is SL::CTI->call_link(number => 'Tel: +49 40 809064 0', internal => 1), 'controller.pl?action=CTI/call&number=0049408090640&internal=1';
 is SL::CTI->call_link(number => 'Tel: +49 40 809064 0', internal => 1), 'controller.pl?action=CTI/call&number=0049408090640&internal=1';

diff --git a/t/cti/sanitize_number.t b/t/cti/sanitize_number.t
index 639e7167bd552b3d0c485a0d7604bbc22ed29a81..c39aa9a1fa52f34cd2997ee8012332dfbeede45d 100644 (file)
--- a/t/cti/sanitize_number.t
+++ b/t/cti/sanitize_number.t
@@ -12,6 +12,6 @@ use_ok 'SL::CTI';
 }
 
 is SL::CTI->sanitize_number(number => '0371 5347 620'),        '03715347620';
 }
 
 is SL::CTI->sanitize_number(number => '0371 5347 620'),        '03715347620';

-is SL::CTI->sanitize_number(number => '0049(0)421-22232 22'),  '0049421-2223222';
-is SL::CTI->sanitize_number(number => '+49(0)421-22232 22'),   '0049421-2223222';
+is SL::CTI->sanitize_number(number => '0049(0)421-22232 22'),  '00494212223222';
+is SL::CTI->sanitize_number(number => '+49(0)421-22232 22'),   '00494212223222';

 is SL::CTI->sanitize_number(number => 'Tel: +49 40 809064 0'), '0049408090640';
 is SL::CTI->sanitize_number(number => 'Tel: +49 40 809064 0'), '0049408090640';