projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
run schema upgrades for pkg_referral and cust_bill_pkg_discount
[freeside.git]
/
FS
/
FS
/
Upgrade.pm
diff --git
a/FS/FS/Upgrade.pm
b/FS/FS/Upgrade.pm
index
27c4b4c
..
a59dc1f
100644
(file)
--- a/
FS/FS/Upgrade.pm
+++ b/
FS/FS/Upgrade.pm
@@
-553,6
+553,8
@@
sub upgrade_schema {
sub upgrade_schema_data {
my %opt = @_;
sub upgrade_schema_data {
my %opt = @_;
+ #auto-find tables/classes with an _update_schema method?
+
tie my %hash, 'Tie::IxHash',
#fix classnum character(1)
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 possible dangling records
'password_history' => [],
'cust_pay_pending' => [],
+ #remove records referencing removed things with their FKs
+ 'pkg_referral' => [],
+ 'cust_bill_pkg_discount' => [],
;
\%hash;
;
\%hash;