diff options
author | mark <mark> | 2010-12-24 10:45:06 +0000 |
---|---|---|
committer | mark <mark> | 2010-12-24 10:45:06 +0000 |
commit | 50053b94beac4aef39ddc007c851184649d49564 (patch) | |
tree | dc61ef34ac4bb3b611317b5b24f434d7c1fa8d8b /FS | |
parent | fc0d0fe616e4bc5dc8137ad1af1cc7072d25f19f (diff) |
upgrade unused_credit option, RT#10670
Diffstat (limited to 'FS')
-rw-r--r-- | FS/FS/part_pkg.pm | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/FS/FS/part_pkg.pm b/FS/FS/part_pkg.pm index 58f70716d..f4aacaeec 100644 --- a/FS/FS/part_pkg.pm +++ b/FS/FS/part_pkg.pm @@ -1459,6 +1459,25 @@ sub _upgrade_data { # class method die $error if $error; } + my @part_pkg_option = qsearch('part_pkg_option', + { 'optionname' => 'unused_credit', + 'optionvalue' => 1, + }); + foreach my $old_opt (@part_pkg_option) { + my $pkgpart = $old_opt->pkgpart; + my $error = $old_opt->delete; + die $error if $error; + + foreach (qw(unused_credit_cancel unused_credit_change)) { + my $new_opt = new FS::part_pkg_option { + 'pkgpart' => $pkgpart, + 'optionname' => $_, + 'optionvalue' => 1, + }; + $error = $new_opt->insert; + die $error if $error; + } + } } =item curuser_pkgs_sql |