diff options
| author | ivan <ivan> | 2009-12-19 23:28:13 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2009-12-19 23:28:13 +0000 |
| commit | b0c1a5c749dd135705f56a04696f15b91c9e6b29 (patch) | |
| tree | fbd8928627a7fe69b4b85ea63a3912d6663a9249 /FS/FS/cust_bill_ApplicationCommon.pm | |
| parent | 1f2a50085dc7a294afc876b093352c88998b1b64 (diff) | |
fix credit application, at least in vedeya's case on HEAD, RT#6819, fallout from tax credits, RT#4729
Diffstat (limited to 'FS/FS/cust_bill_ApplicationCommon.pm')
| -rw-r--r-- | FS/FS/cust_bill_ApplicationCommon.pm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/FS/FS/cust_bill_ApplicationCommon.pm b/FS/FS/cust_bill_ApplicationCommon.pm index 30243e2..cb21732 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 ) { |