From: ivan Date: Fri, 12 Sep 2008 22:53:55 +0000 (+0000) Subject: just give up and try again tommorow, "1011" came from us not the CDRs anyway, RT... X-Git-Tag: root_of_webpay_support~360 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=8e7225dc2659c990f71609dea29c8ca0f8c7ebc2;p=freeside.git just give up and try again tommorow, "1011" came from us not the CDRs anyway, RT#3985 --- 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