<%= $notes %>
<%= my $last = $summary_subtotals[-1]; foreach my $section (@summary_subtotals) { $OUT .= ''; my $celltype = ($last == $section) ? 'th' : 'td'; $OUT .= qq(<$celltype align="right">). $section->{'subtotal'}. ""; } %> <%= if ( $balance_adjustments > 0 ) { $OUT .= " "; } %>


Summary of Previous Balance
Previous Balance <%= "${dollar}${true_previous_balance}" %>


Summary of New Charges

'. ($section->{'description'} ? $section->{'description'} : 'Charges' ). '
New Charges Total <%= $dollar.$current_less_finance %>


Invoice Summary

Previous Past Due Charges <%= $dollar.$true_previous_balance %>
Finance charges on overdue amount <%= $dollar.$finance_amount %>
New Charges <%= $dollar.$current_less_finance %>
Payments and Credits -$dollar" . sprintf('%.2f', $balance_adjustments). "
Total Amount Due <%= $dollar.sprintf('%.2f', $balance) %>