X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUpgrade.pm;h=e901a7f1d2eb6c0eb711da1bbab762bb272980b3;hb=74cdc73b9f0e6e1cdd7fd68e7fb2830bba4fdba0;hp=d06b7d8a7a39da3270f1dbf67145d139fe10df81;hpb=392d4b113894af4ff051e3363d8b3c78c2d223dc;p=freeside.git diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index d06b7d8a7..e901a7f1d 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,10 +332,17 @@ sub upgrade_data { tie my %hash, 'Tie::IxHash', + #remap log levels + 'log' => [], + #fix whitespace - before cust_main 'cust_location' => [], - #cust_main (remove paycvv from history) + #remove bad source_paynum before cust_main + 'cust_refund' => [], + + #cust_main (tokenizes cards, remove paycvv from history, locations, cust_payby, etc) + # (handles payinfo encryption/tokenization across all relevant tables) 'cust_main' => [], #msgcat @@ -394,7 +404,7 @@ sub upgrade_data { 'cust_pkg' => [], #'cust_pkg_reason' => [], 'cust_pkg_discount' => [], - 'cust_refund' => [], + #'cust_refund' => [], 'banned_pay' => [], #default namespace @@ -450,6 +460,10 @@ sub upgrade_data { #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;