diff options
Diffstat (limited to 'bin/artera.import')
| -rw-r--r-- | bin/artera.import | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/bin/artera.import b/bin/artera.import index 41cbe4b70..75fe585d9 100644 --- a/bin/artera.import +++ b/bin/artera.import @@ -47,7 +47,7 @@ while (<>) { # warn "can't find domain $domain\n"; } - my $exist = qsearchs('svc_external', { 'id' => $serial } ); + my $exist = qsearchs('svc_external', { 'title' => $keycode } ); next if $exist; my $svc_external = new FS::svc_external { @@ -59,10 +59,11 @@ while (<>) { #my $error = $svc_external->check; my $error = $svc_external->insert; if ( $cust_svc && $error =~ /^Already/ ) { + warn $error; $svc_external->pkgnum(''); $error = $svc_external->insert; } - die $error if $error; + warn $error if $error; $num++; $linked++ if $cust_svc; |