[freeside-commits] freeside/FS/FS cust_bill_ApplicationCommon.pm, 1.15, 1.16

[Ivan,,,]

Update of /home/cvs/cvsroot/freeside/FS/FS
In directory wavetail.420.am:/tmp/cvs-serv4905

Modified Files:
	cust_bill_ApplicationCommon.pm 
Log Message:
fix credit application, at least in vedeya's case on HEAD, RT#6819, fallout from tax credits, RT#4729

Index: cust_bill_ApplicationCommon.pm
===================================================================
RCS file: /home/cvs/cvsroot/freeside/FS/FS/cust_bill_ApplicationCommon.pm,v
retrieving revision 1.15
retrieving revision 1.16
diff -u -d -r1.15 -r1.16
--- cust_bill_ApplicationCommon.pm	23 Nov 2009 00:25:10 -0000	1.15
+++ cust_bill_ApplicationCommon.pm	19 Dec 2009 23:28:13 -0000	1.16
@@ -154,7 +154,10 @@
        $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 ) {