diff options
author | Ivan Kohler <ivan@freeside.biz> | 2017-09-18 15:23:11 -0700 |
---|---|---|
committer | Ivan Kohler <ivan@freeside.biz> | 2017-09-18 15:23:11 -0700 |
commit | dba5666db2791c7c9694969470b452633b74d573 (patch) | |
tree | f2eb55e9040c2b510c7c6ce173f3809597f0f31e | |
parent | 361f46c265aa76ce4fc9b00393e970d4c8b762bd (diff) |
fix package change vs. v4 discount refactor, RT#77513, RT#14092
-rw-r--r-- | FS/FS/cust_pkg.pm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/FS/FS/cust_pkg.pm b/FS/FS/cust_pkg.pm index b256daedc..c70a6795f 100644 --- a/FS/FS/cust_pkg.pm +++ b/FS/FS/cust_pkg.pm @@ -2622,9 +2622,9 @@ sub change { foreach my $old_discount ($self->cust_pkg_discount_active) { # don't remove the old discount, we may still need to bill that package. my $new_discount = new FS::cust_pkg_discount { - 'pkgnum' => $cust_pkg->pkgnum, - 'discountnum' => $old_discount->discountnum, - 'months_used' => $old_discount->months_used, + 'pkgnum' => $cust_pkg->pkgnum, + map { $_ => $old_discount->$_() } + qw( discountnum months_used end_date usernum setuprecur ), }; $error = $new_discount->insert; if ( $error ) { |