From: ivan <ivan>
Date: Sat, 19 Dec 2009 23:28:13 +0000 (+0000)
Subject: fix credit application, at least in vedeya's case on HEAD, RT#6819, fallout from... 
X-Git-Tag: root_of_svc_elec_features~612
X-Git-Url: http://git.freeside.biz/gitweb/?a=commitdiff_plain;h=b0c1a5c749dd135705f56a04696f15b91c9e6b29;p=freeside.git

fix credit application, at least in vedeya's case on HEAD, RT#6819, fallout from tax credits, RT#4729
---

diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm
index 30243e210..cb21732ab 100644
--- a/FS/FS/cust_bill_ApplicationCommon.pm
+++ b/FS/FS/cust_bill_ApplicationCommon.pm
@@ -154,7 +154,10 @@ sub calculate_applications {
        $self->cust_bill->invnum. ": ". join(', ', @open). "\n"
     if $DEBUG;
   my $total = 0;
-  $total += $_->owed_setup + $_->owed_recur foreach @open;
+  foreach (@open) {
+    $total += $_->owed_setup if $_->setup;
+    $total += $_->owed_recur if $_->recur;
+  }
   $total = sprintf('%.2f', $total);
 
   if ( $self->amount > $total ) {