From: ivan Date: Fri, 12 Sep 2008 22:18:07 +0000 (+0000) Subject: grr, TRY to support multiple internal_prefixen, RT#3985 X-Git-Tag: root_of_webpay_support~363 X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b867921af5ae4c795e1e60dac8c89644e385bdef;p=freeside.git grr, TRY to support multiple internal_prefixen, RT#3985 --- diff --git a/FS/FS/part_pkg/voip_cdr.pm b/FS/FS/part_pkg/voip_cdr.pm index 6d76f8bf7..787f052f5 100644 --- a/FS/FS/part_pkg/voip_cdr.pm +++ b/FS/FS/part_pkg/voip_cdr.pm @@ -286,7 +286,7 @@ sub calc_recur { #determine the country code my $countrycode; - if ( grep { $number =~ /^$_(((\d)(\d))(\d))(\d+)$/ } @intl + if ( ( grep { $number =~ /^$_(((\d)(\d))(\d))(\d+)$/ } @intl ) || $number =~ /^\+(((\d)(\d))(\d))(\d+)$/ ) {