finish up working bell_west CDR format, RT#4403

[freeside.git] / FS / FS / Upgrade.pm

diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm
index bf99dce..452c5a3 100644 (file)
--- a/FS/FS/Upgrade.pm
+++ b/FS/FS/Upgrade.pm
@@ -84,6 +84,9 @@ sub upgrade_data {
 
   tie my %hash, 'Tie::IxHash', 
 
+    #msgcat
+    'msgcat' => [],
+
     #reason type and reasons
     'reason_type'     => [],
     'reason'          => [],
@@ -206,7 +209,8 @@ sub upgrade_sqlradius {
       }
   
       my $svc_acct = qsearchs({
-        'table'     => 'svc_acct.*',
+        'select'    => 'svc_acct.*',
+        'table'     => 'svc_acct',
         'addl_from' => 'LEFT JOIN cust_svc   USING ( svcnum )'.
                        'LEFT JOIN export_svc USING ( svcpart )',
         'hashref'   => { 'username' => $username },