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