X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUpgrade.pm;h=f26c6a338ccd3f835952992e6f50021ab9385d37;hb=ebd5b466b4717f201bc7f8d57ef0f7441e590d91;hp=26cd42a10b97eb2e0be7fe7e006ce4cb2c7900b3;hpb=050e311ccb5ef9747a87632842081b99453aba4b;p=freeside.git diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 26cd42a10..f26c6a338 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -311,7 +311,10 @@ sub upgrade { }); foreach my $object ( @objects ) { my $payinfo = $object->decrypt($object->payinfo); - die "error decrypting payinfo" if $payinfo eq $object->payinfo; + if ( $payinfo eq $object->payinfo ) { + warn "error decrypting payinfo for $table: $payinfo\n"; + next; + } $object->payinfo($payinfo); my $error = $object->replace; die $error if $error; @@ -329,7 +332,11 @@ sub upgrade_data { tie my %hash, 'Tie::IxHash', - #cust_main (remove paycvv from history) + #fix whitespace - before cust_main + 'cust_location' => [], + + #cust_main (tokenizes cards, remove paycvv from history, locations, cust_payby, etc) + # (handles payinfo encryption/tokenization across all relevant tables) 'cust_main' => [], #msgcat @@ -345,6 +352,9 @@ sub upgrade_data { #customer credits 'cust_credit' => [], + # fix some tax allocation records + 'cust_bill_pkg_void' => [], + #duplicate history records 'h_cust_svc' => [], @@ -391,9 +401,6 @@ sub upgrade_data { 'cust_refund' => [], 'banned_pay' => [], - #cardtype - 'cust_payby' => [], - #default namespace 'payment_gateway' => [], @@ -444,8 +451,13 @@ sub upgrade_data { #set default locations on quoted packages 'quotation_pkg' => [], - #mark certain taxes as system-maintained + #mark certain taxes as system-maintained, + # and fix whitespace 'cust_main_county' => [], + + #upgrade part_event_condition_option agentnum to a multiple hash value + 'part_event_condition_option' =>[], + ; \%hash;