diff options
| -rw-r--r-- | FS/FS/Upgrade.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 27c4b4ca6..a59dc1fc9 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -553,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) @@ -562,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; |