summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIvan Kohler <ivan@freeside.biz>2017-09-18 15:23:11 -0700
committerIvan Kohler <ivan@freeside.biz>2017-09-18 15:23:11 -0700
commitdba5666db2791c7c9694969470b452633b74d573 (patch)
treef2eb55e9040c2b510c7c6ce173f3809597f0f31e
parent361f46c265aa76ce4fc9b00393e970d4c8b762bd (diff)
fix package change vs. v4 discount refactor, RT#77513, RT#14092
-rw-r--r--FS/FS/cust_pkg.pm6
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 ) {