diff options
author | ivan <ivan> | 2010-09-19 05:50:28 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-09-19 05:50:28 +0000 |
commit | 04018dedb1ee318ac7d63c3f9c039edf4a8d0537 (patch) | |
tree | 42d56c51e6c457103c49a363c00d3bc9b94233d7 /FS/FS/Upgrade.pm | |
parent | 71863412e2d2fd3c48c9c1220e6bf49122db270b (diff) |
fix a series of unfortunate upgrades which resulted in too much payment receiptery, RT#9723
Diffstat (limited to 'FS/FS/Upgrade.pm')
-rw-r--r-- | FS/FS/Upgrade.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/FS/FS/Upgrade.pm b/FS/FS/Upgrade.pm index 185ba16fc..61a42a60c 100644 --- a/FS/FS/Upgrade.pm +++ b/FS/FS/Upgrade.pm @@ -12,7 +12,7 @@ use FS::svc_domain; $FS::svc_domain::whois_hack = 1; @ISA = qw( Exporter ); -@EXPORT_OK = qw( upgrade_schema upgrade upgrade_sqlradius ); +@EXPORT_OK = qw( upgrade_schema upgrade_config upgrade upgrade_sqlradius ); $DEBUG = 1; @@ -33,6 +33,22 @@ database upgrades. =over 4 +=item upgrade_config + +=cut + +#config upgrades +sub upgrade_config { + my %opt = @_; + + my $conf = new FS::Conf; + + $conf->touch('payment_receipt') + if $conf->exists('payment_receipt_email') + || $conf->config('payment_receipt_msgnum'); + +} + =item upgrade =cut |