From: ivan <ivan>
Date: Thu, 1 Apr 2010 07:39:23 +0000 (+0000)
Subject: fix nasty discount fallout (i hope)
X-Git-Tag: root_of_svc_elec_features~333
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b66775c3f693b5204d8f88afba17cb2aeae05120;p=freeside.git

fix nasty discount fallout (i hope)
---

diff --git a/FS/FS/part_pkg/flat.pm b/FS/FS/part_pkg/flat.pm
index e25c28c72..8cffaffa7 100644
--- a/FS/FS/part_pkg/flat.pm
+++ b/FS/FS/part_pkg/flat.pm
@@ -182,7 +182,8 @@ sub calc_discount {
 
   my $tot_discount = 0;
   #UI enforces just 1 for now, will need ordering when they can be stacked
-  foreach my $cust_pkg_discount ( $cust_pkg->cust_pkg_discount_active ) {
+  my @cust_pkg_discount = $cust_pkg->cust_pkg_discount_active;
+  foreach my $cust_pkg_discount ( @cust_pkg_discount ) {
      my $discount = $cust_pkg_discount->discount;
      #UI enforces one or the other (for now?  probably for good)
      my $amount = 0;