summaryrefslogtreecommitdiff
path: root/bin/rate.import
diff options
context:
space:
mode:
Diffstat (limited to 'bin/rate.import')
-rwxr-xr-xbin/rate.import28
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,