diff options
Diffstat (limited to 'bin/rate.import')
| -rwxr-xr-x | bin/rate.import | 28 |
1 files changed, 19 insertions, 9 deletions
diff --git a/bin/rate.import b/bin/rate.import index 29b5239d5..fdd756d72 100755 --- a/bin/rate.import +++ b/bin/rate.import @@ -59,15 +59,25 @@ while ( my $row = $sth->fetchrow_hashref ) { $prefix = $2; } - my @rate_prefix = map { - #warn $row->{'Country'}. ": $prefixprefix$_\n"; - new FS::rate_prefix { - 'countrycode' => $row->{'Code'}, - 'npa' => $prefixprefix.$_, - }; - } - split(/\s*[;,]\s*/, $prefix); - + my @rate_prefix = (); + if ( $prefix =~ /\d/ ) { + + @rate_prefix = map { + #warn $row->{'Country'}. ": $prefixprefix$_\n"; + new FS::rate_prefix { + 'countrycode' => $row->{'Code'}, + 'npa' => $prefixprefix.$_, + }; + } + split(/\s*[;,]\s*/, $prefix); + + } else { + @rate_prefix = ( new FS::rate_prefix { + 'countycode' => $row->{'Code'}, + 'npa' => '', + }; + ); + } my $dest_detail = new FS::rate_detail { 'ratenum' => $ratenum, |