RT# 74523 - added check for status table argument for /bin/cdr-ivr.import compatibility

[freeside.git] / FS / FS / cdr / Import.pm

diff --git a/FS/FS/cdr/Import.pm b/FS/FS/cdr/Import.pm
index 35069ae..f32a7bd 100644 (file)
--- a/FS/FS/cdr/Import.pm
+++ b/FS/FS/cdr/Import.pm
@@ -71,6 +71,7 @@ sub dbi_import {
 
   my $table = $opt{T} || $args{table};
   my $pkey = $args{primary_key};
+  my $status_table = $opt{S} || $args{status_table};
 
   #just doing this manually with IVR MSSQL databases for now
   #  # check for existence of freesidestatus
@@ -91,9 +92,9 @@ sub dbi_import {
 
   #my @cols = values %{ $args{column_map} };
   my $sql = "SELECT $table.* FROM $table "; # join(',', @cols). " FROM $table ".
-  $sql .=  'LEFT JOIN '. $opt{S}.
-           " ON ( $table.$pkey = ". $opt{S}. ".$pkey )"
-    if $opt{S};
+  $sql .=  'LEFT JOIN '. $status_table.
+           " ON ( $table.$pkey = ". $status_table. ".$pkey )"
+    if $status_table;
   $sql .= ' WHERE freesidestatus IS NULL ';
 
   #$sql .= ' LIMIT '. $opt{L} if $opt{L};
@@ -141,10 +142,10 @@ sub dbi_import {
       $imported++;
 
       my $st_sql;
-      if ( $opt{S} ) {
+      if ( $status_table ) {
 
         $st_sql = 
-          'INSERT INTO '. $opt{S}. " ( $pkey, freesidestatus ) ".
+          'INSERT INTO '. $status_table. " ( $pkey, freesidestatus ) ".
             " VALUES ( ?, 'done' )";
 
       } else {
@@ -191,4 +192,4 @@ L<FS::cdr>
 
 =cut
 
-1;
+1;
\ No newline at end of file