5 <tr><td><%= $notes %></td></tr>
9 <table class="invoice_summary">
10 <tr><th colspan=2><br></th></tr>
12 <td><b><u><br>Summary of Previous Balance<br></u></b></td>
16 <td><b>Previous Balance</b></td>
17 <td align=right><b><%= "${dollar}${true_previous_balance}" %></b></td>
19 <tr><th colspan=2><br></th></tr>
20 <tr><td colspan=2><br></td></tr>
22 <td><b><u>Summary of New Charges</u></b></td>
24 <tr><td colspan=2><br></td></tr>
26 my $last = $summary_subtotals[-1];
27 foreach my $section (@summary_subtotals) {
28 $OUT .= '<tr><td><b>'. ($section->{'description'} ? $section->{'description'} : 'Charges' ). '</b></td>';
29 my $celltype = ($last == $section) ? 'th' : 'td';
30 $OUT .= qq(<$celltype align="right"><b>). $section->{'subtotal'}. "</b></$celltype></tr>";
34 <td><b>New Charges Total</b></td>
35 <td align="right"><b><%= $dollar.$current_less_finance %></b></td>
37 <tr><th colspan=2><br></th></tr>
38 <tr><td colspan=2><br></td></tr>
40 <td><b><u>Invoice Summary</u></b></td>
42 <tr><td colspan=2><br></td></tr>
44 <td><b>Previous Past Due Charges</b></td>
45 <td align="right"><b><%= $dollar.$true_previous_balance %></b></td>
48 <td><b>Finance charges on overdue amount</b></td>
49 <td align="right"><b><%= $dollar.$finance_amount %></b></td>
52 <td><b>New Charges</b></td>
53 <td align="right"><b><%= $dollar.$current_less_finance %></b></td>
55 <%= if ( $balance_adjustments > 0 ) {
58 <td><b>Payments and Credits</b></td>
59 <th align='right'><b>-$dollar" . sprintf('%.2f', $balance_adjustments). "</b></th>
64 <td><b>Total Amount Due</b></td>
65 <td align="right"><b><%= $dollar.sprintf('%.2f', $balance) %></b></td>
67 <tr><th colspan=2><br></th></tr>