adding artera import

diff --git a/bin/artera.import b/bin/artera.import
index f7def1b..41cbe4b 100644 (file)
--- a/bin/artera.import
+++ b/bin/artera.import
@@ -47,6 +47,9 @@ while (<>) {
   #  warn "can't find domain $domain\n";
   }
 
   #  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 : '' ),
   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;
   };
   #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++;
   die $error if $error;
 
   $num++;