X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcust_bill_ApplicationCommon.pm;fp=FS%2FFS%2Fcust_bill_ApplicationCommon.pm;h=cb21732ab8f642a459f4ab8ac95650c8fd8fc56d;hb=b0c1a5c749dd135705f56a04696f15b91c9e6b29;hp=30243e2109544a55b3773cae9c171293e43721a9;hpb=1f2a50085dc7a294afc876b093352c88998b1b64;p=freeside.git

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 ) {