From 985f90f7d699c7fea9669d10d905da5ae202c8dc Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Sun, 16 Nov 2014 21:19:01 -0800 Subject: [PATCH] fix discounts on one-time charges, #28956 --- FS/FS/cust_main/Billing.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/FS/FS/cust_main/Billing.pm b/FS/FS/cust_main/Billing.pm index 2c41ecb67..a6810802e 100644 --- a/FS/FS/cust_main/Billing.pm +++ b/FS/FS/cust_main/Billing.pm @@ -1087,7 +1087,9 @@ sub _make_lines { my $setup = 0; my $unitsetup = 0; my @setup_discounts = (); - my %setup_param = ( 'discounts' => \@setup_discounts ); + my %setup_param = ( 'discounts' => \@setup_discounts, + 'real_pkgpart' => $params{real_pkgpart} + ); # Conditions for setting setup date and charging the setup fee: # - this is not a recurring-only billing run # - and the package is not currently being canceled -- 2.11.0