hide tickets with selfservice priority indicating closure, RT#79444

[freeside.git] / bin / cdr-transnexus.import

diff --git a/bin/cdr-transnexus.import b/bin/cdr-transnexus.import
index ee9a200..b9fe41a 100755 (executable)
--- a/bin/cdr-transnexus.import
+++ b/bin/cdr-transnexus.import
@@ -50,7 +50,8 @@ foreach my $dir ( @$lsdir ) {
   my $dirname = $dir->{filename};
   warn "Scanning dir $dirname\n" if $opt_v;
 
-  my $ls = $ls_sftp->ls("$DIR/$dirname", wanted => qr/^$opt_p.*-CDRs$/i );
+  #my $ls = $ls_sftp->ls("$DIR/$dirname", wanted => qr/^$opt_p.*-CDRs$/i );
+  my $ls = $ls_sftp->ls("$DIR/$dirname", wanted => qr/^$opt_p.*Customer-CDRs$/i );
 
   foreach my $file ( @$ls ) {
 
@@ -65,10 +66,10 @@ foreach my $dir ( @$lsdir ) {
     warn "Processing $filename\n" if $opt_v;
 
     my $error = FS::cdr::batch_import( {
-      'file'     => "$cachedir/$filename",
-      'format'   => $format,
-      'params'   => { 'cdrbatch' => $filename, },
-      'empty_ok' => 1,
+      'file'            => "$cachedir/$filename",
+      'format'          => $format,
+      'batch_namevalue' => $filename,
+      'empty_ok'        => 1,
     } );
     die $error if $error;