diff options
| author | ivan <ivan> | 2008-09-12 22:53:55 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2008-09-12 22:53:55 +0000 |
| commit | 8e7225dc2659c990f71609dea29c8ca0f8c7ebc2 (patch) | |
| tree | 699389048bb278ae236ce6f288319d00b0359317 | |
| parent | 3b97735238d919ed548bfb17aea8162623c1d286 (diff) | |
just give up and try again tommorow, "1011" came from us not the CDRs anyway, RT#3985
| -rw-r--r-- | FS/FS/part_pkg/voip_cdr.pm | 20 |
1 files changed, 5 insertions, 15 deletions
diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index 794ae010f..979134a5a 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -80,7 +80,7 @@ tie my %temporalities, 'Tie::IxHash', # 'type' => 'checkbox', # }, - 'international_prefix' => { 'name' => 'Destination prefix(es) for international CDR records. Separate multiple options with commas.', + 'international_prefix' => { 'name' => 'Destination prefix for international CDR records', 'default' => '011', }, @@ -277,23 +277,13 @@ sub calc_recur { # $dest =~ s/\@(.*)$// and $siphost = $1; # @10.54.32.1, @sip.example.com my $intl = $self->option('international_prefix') || '011'; - my @intl = (); - if ( $intl =~ /,/ ) { - @intl = split(/\s*,\s*/, $intl); - } else { - @intl = ($intl); - } #determine the country code - my $intl_match = 0; - foreach my $i (@intl) { - if ( $number =~ /^$i(((\d)(\d))(\d))(\d+)$/ ) { - $intl_match++; - last; - } - } my $countrycode; - if ( $intl_match || $number =~ /^\+(((\d)(\d))(\d))(\d+)$/ ) { + if ( $number =~ /^$intl(((\d)(\d))(\d))(\d+)$/ + || $number =~ /^\+(((\d)(\d))(\d))(\d+)$/ + ) + { my( $three, $two, $one, $u1, $u2, $rest ) = ( $1,$2,$3,$4,$5,$6 ); #first look for 1 digit country code |