From b66775c3f693b5204d8f88afba17cb2aeae05120 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 1 Apr 2010 07:39:23 +0000
Subject: [PATCH] fix nasty discount fallout (i hope)

---
 FS/FS/part_pkg/flat.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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;
-- 
2.11.0