From: Mark Wells Date: Mon, 1 Feb 2016 00:48:33 +0000 (-0800) Subject: continue removing pay* fields from cust_main X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=7643e364c22eeca302f09a87ea968175ce01985b continue removing pay* fields from cust_main --- diff --git a/FS/FS/Schema.pm b/FS/FS/Schema.pm index 4a885d262..f1c4e080d 100644 --- a/FS/FS/Schema.pm +++ b/FS/FS/Schema.pm @@ -1652,7 +1652,6 @@ sub tables_hashref { ['agentnum'], ['refnum'], ['classnum'], ['usernum'], [ 'custbatch' ], [ 'referral_custnum' ], - [ 'payby' ], [ 'paydate' ], [ 'archived' ], [ 'ship_locationnum' ], [ 'bill_locationnum' ], diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index bffda566f..395c6d0b3 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -297,7 +297,7 @@ sub upgrade { # decrypt inadvertantly-encrypted payinfo where payby != CARD,DCRD,CHEK,DCHK # kind of a weird spot for this, but it's better than duplicating # all this code in each class... - my @decrypt_tables = qw( cust_main cust_pay_void cust_pay cust_refund cust_pay_pending ); + my @decrypt_tables = qw( cust_payby cust_pay_void cust_pay cust_refund cust_pay_pending ); foreach my $table ( @decrypt_tables ) { my @objects = qsearch({ 'table' => $table,