});
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;
#mark certain taxes as system-maintained,
# and fix whitespace
'cust_main_county' => [],
+
+ #'compliance solutions' -> 'compliance_solutions'
+ 'tax_rate' => [],
+ 'tax_rate_location' => [],
;
\%hash;
'cust_bill_pkg_detail' => [],
#add necessary columns to RT schema
'TicketSystem' => [],
+ #remove h_access_user_log if it exists (since our regular auto schema
+ # upgrade doesn't have the drop tables flag turned on)
+ 'access_user_log' => [],
#remove possible dangling records
'password_history' => [],
'cust_pay_pending' => [],
#remove records referencing removed things with their FKs
'pkg_referral' => [],
'cust_bill_pkg_discount' => [],
+ 'cust_msg' => [],
+ 'cust_bill_pay_batch' => [],
+ 'cust_event_fee' => [],
+ 'radius_attr' => [],
+ 'queue_depend' => [],
+ 'cust_main_invoice' => [],
+ #update records referencing removed things with their FKs
+ 'cust_pkg' => [],
;
\%hash;