From: ivan <ivan>
Date: Wed, 20 Oct 2004 08:20:36 +0000 (+0000)
Subject: locate existing ones by title, warn on errors
X-Git-Tag: BEFORE_FINAL_MASONIZE~903
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=b04a3006d879feb010f79d5a504bd6aba64ae43f

locate existing ones by title, warn on errors
---

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;