From 1b523e698fce6720d6b9389ef636e7fe9e8b9f98 Mon Sep 17 00:00:00 2001 From: Ivan Kohler Date: Thu, 7 Feb 2013 21:38:31 -0800 Subject: [PATCH] fix prorating w/quantities, RT#21283 --- FS/FS/part_pkg/prorate_Mixin.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/FS/FS/part_pkg/prorate_Mixin.pm b/FS/FS/part_pkg/prorate_Mixin.pm index d148c963d..153ed56cd 100644 --- a/FS/FS/part_pkg/prorate_Mixin.pm +++ b/FS/FS/part_pkg/prorate_Mixin.pm @@ -154,7 +154,10 @@ sub calc_prorate { #so 1.005 rounds to 1.01 $charge = sprintf('%.2f', $permonth * $months + 0.00000001 ); - return $charge; + my $quantity = $cust_pkg->quantity || 1; + $charge *= $quantity; + + return sprintf('%.2f', $charge); } =item prorate_setup CUST_PKG SDATE -- 2.11.0