From: Ivan Kohler <ivan@freeside.biz>
Date: Fri, 8 Feb 2013 05:38:31 +0000 (-0800)
Subject: fix prorating w/quantities, RT#21283
X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=1b523e698fce6720d6b9389ef636e7fe9e8b9f98

fix prorating w/quantities, RT#21283
---

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