diff options
author | ivan <ivan> | 2004-10-20 08:14:11 +0000 |
---|---|---|
committer | ivan <ivan> | 2004-10-20 08:14:11 +0000 |
commit | 348b6d6744d7bdb4359b29c9f117ed7263cfd16b (patch) | |
tree | d24bb1e9e74abb1cea320b90c967aeed80000916 /bin | |
parent | 787275a5f36e80bf26e2cf592592acc3e3f179db (diff) |
adding artera import
Diffstat (limited to 'bin')
-rw-r--r-- | bin/artera.import | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/bin/artera.import b/bin/artera.import index f7def1bbe..41cbe4b70 100644 --- a/bin/artera.import +++ b/bin/artera.import @@ -47,6 +47,9 @@ while (<>) { # warn "can't find domain $domain\n"; } + my $exist = qsearchs('svc_external', { 'id' => $serial } ); + next if $exist; + my $svc_external = new FS::svc_external { 'svcpart' => $svcpart, 'pkgnum' => ( $cust_svc ? $cust_svc->pkgnum : '' ), @@ -55,6 +58,10 @@ while (<>) { }; #my $error = $svc_external->check; my $error = $svc_external->insert; + if ( $cust_svc && $error =~ /^Already/ ) { + $svc_external->pkgnum(''); + $error = $svc_external->insert; + } die $error if $error; $num++; |