X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUpgrade.pm;h=a59dc1fc924ff061a364fa74f0f5d0883fa9ffeb;hb=895667aa1cf8e9d136043881284df2c9423d1d1e;hp=0113bf92a0bd1bed154f8f2817e3ddd73b63caa7;hpb=e41cafbe7616c4f046c6161999d4577f1c918311;p=freeside.git diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 0113bf92a..a59dc1fc9 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -49,7 +49,7 @@ sub upgrade_config { # to simplify tokenization upgrades die "Conf selfservice-payment_gateway no longer supported" - if conf->config('selfservice-payment_gateway'); + if $conf->config('selfservice-payment_gateway'); $conf->touch('payment_receipt') if $conf->exists('payment_receipt_email') @@ -362,7 +362,12 @@ sub upgrade_data { #fix whitespace - before cust_main 'cust_location' => [], - #cust_main (remove paycvv from history, locations, cust_payby, etc) + # need before cust_main tokenization upgrade, + # blocks tokenization upgrade if deprecated features still in use + 'agent_payment_gateway' => [], + + #cust_main (tokenizes cards, remove paycvv from history, locations, cust_payby, etc) + # (handles payinfo encryption/tokenization across all relevant tables) 'cust_main' => [], #contact -> cust_contact / prospect_contact @@ -390,10 +395,6 @@ sub upgrade_data { #duplicate history records 'h_cust_svc' => [], - # need before transaction tables, - # blocks tokenization upgrade if deprecated features still in use - 'agent_payment_gateway' => [], - #populate cust_pay.otaker 'cust_pay' => [], @@ -552,6 +553,8 @@ sub upgrade_schema { sub upgrade_schema_data { my %opt = @_; + #auto-find tables/classes with an _update_schema method? + tie my %hash, 'Tie::IxHash', #fix classnum character(1) @@ -561,6 +564,9 @@ sub upgrade_schema_data { #remove possible dangling records 'password_history' => [], 'cust_pay_pending' => [], + #remove records referencing removed things with their FKs + 'pkg_referral' => [], + 'cust_bill_pkg_discount' => [], ; \%hash;