[freeside-commits] branch FREESIDE_3_BRANCH updated. 3c4b8a30aa8b650795b6f74c587f57feab348ab6

[Ivan]

The branch, FREESIDE_3_BRANCH has been updated
       via  3c4b8a30aa8b650795b6f74c587f57feab348ab6 (commit)
      from  9479931dfcf854e6b783dc6b38c19a1875b18c2b (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 3c4b8a30aa8b650795b6f74c587f57feab348ab6
Author: Ivan Kohler <ivan at freeside.biz>
Date:   Mon Jun 30 17:09:47 2014 -0700

    use a separate table for freesidestatus for IVR imports, RT#39055

diff --git a/FS/FS/cdr/Import.pm b/FS/FS/cdr/Import.pm
index e788712..ca6ae93 100644
--- a/FS/FS/cdr/Import.pm
+++ b/FS/FS/cdr/Import.pm
@@ -117,13 +117,16 @@ sub dbi_import {
 
     $cdr->cdrtypenum($opt{c}) if $opt{c};
 
-    #print $row->{$pkey},"\n" if $opt{v};
+    my $pkey_value = $args{status_table} ? $row->{"$table.$pkey"}
+                                         : $row->{$pkey};
+
+    #print "$pkey_value\n" if $opt{v};
     my $error = $cdr->insert;
 
     if ($error) {
 
-      #die $row->{$pkey} . ": failed import: $error\n";
-      print $row->{$pkey} . ": failed import: $error\n";
+      #die "$pkey_value: failed import: $error\n";
+      print "$pkey_value: failed import: $error\n";
 
     } else {
 
@@ -142,7 +145,7 @@ sub dbi_import {
 
       }
 
-      my $updated = $dbi->do($st_sql, undef, $row->{$pkey} );
+      my $updated = $dbi->do($st_sql, undef, $pkey_value );
       #$updates += $updated;
       die "failed to set status: ".$dbi->errstr."\n" unless $updated;
 

-----------------------------------------------------------------------

Summary of changes:
 FS/FS/cdr/Import.pm |   11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)