<%= $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'}. ""; } %> <%= foreach my $section ( grep $_->{adjust_section}, @sections) { $OUT .= ''; $OUT .= qq("; } %> 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 %> Summary of Payments and Credits Payments and Credits -<%= $dollar.$balance_adjustments %> Invoice Summary Previous Past Due Charges <%= $dollar.$true_previous_balance %> Finance charges on overdue amount <%= $dollar.$finance_amount %> New Charges <%= $dollar.$current_less_finance %> '. ($section->{'description'} ? $section->{'description'} : 'Charges' ). ' ). $section->{'subtotal'}. " Payments and Credits -<%= $dollar.sprintf('%.2f', $balance_adjustments) %> Total Amount Due <%= $dollar.sprintf('%.2f', $balance) %>