cdr reimporting, RT#12181

[freeside.git] / bin / cdr.reimport

diff --git a/bin/cdr.reimport b/bin/cdr.reimport
index 42492b0..51c62d2 100644 (file)
--- a/bin/cdr.reimport
+++ b/bin/cdr.reimport
@@ -34,7 +34,7 @@ my $cb = sub {
     $new++;
     return;
   }
-  die "too many matches found!" if scalar(@exists) > 1;
+  return "too many matches found!" if scalar(@exists) > 1;
 
   my $exists = $exists[0];
   if ( $exists->freesidestatus ) {
@@ -43,15 +43,17 @@ my $cb = sub {
   } else {
     $rep++;
     my $error = $exists->delete;
-    die $error if $error;
+    return $error if $error;
   }
 
+  return '';
+
 };
 
 my $error = FS::cdr::batch_import( {
   'file'               => $file,
   'format'             => $format,
-  'batch_namevalue'    => $file,
+  'batch_namevalue'    => $file."-REIMPORT$$",
   'preinsert_callback' => $cb,
 } );
 die $error if $error;