});
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;
#fix whitespace - before cust_main
'cust_location' => [],
- #cust_main (remove paycvv from history)
+ #cust_main (tokenizes cards, remove paycvv from history, locations, cust_payby, etc)
+ # (handles payinfo encryption/tokenization across all relevant tables)
'cust_main' => [],
#msgcat
#customer credits
'cust_credit' => [],
+ # fix some tax allocation records
+ 'cust_bill_pkg_void' => [],
+
#duplicate history records
'h_cust_svc' => [],