work around for Net::MAC::Vendor 1.25 recommendation of libev-perl causing apache...

[freeside.git] / bin / artera.import

diff --git a/bin/artera.import b/bin/artera.import
index 75fe585..716ddda 100644 (file)
--- 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', { 'title' => $keycode } );
+  my $exist = qsearchs('svc_external', { 'id' => $serial } );
   next if $exist;
 
   my $svc_external = new FS::svc_external {