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 and Payments<br></u></b></td>
16 <td><b>Previous Balance</b></td>
17 <td align="right"><b><%= $dollar.$true_previous_balance %></b></td>
20 <td><b>Payments</b></td>
21 <th align="right"><b><%= $dollar.$balance_adjustments %></b></th>
24 <td><b>Balance Outstanding</b></td>
25 <td align="right"><b><%= $dollar.sprintf('%.2f', $true_previous_balance - $balance_adjustments) %></b></td>
27 <tr><th colspan=2><br></th></tr>
28 <tr><td colspan=2><br></td></tr>
30 <td><b><u>Summary of New Charges</u></b></td>
33 <tr><td colspan=2><br></td></tr>
35 my $last = $summary_subtotals[-1];
36 foreach my $section (@summary_subtotals) {
37 $OUT .= '<tr><td><b>'. ($section->{'description'} ? $section->{'description'} : 'Charges' ). '</b></td>';
38 my $celltype = ($last == $section) ? 'th' : 'td';
39 $OUT .= qq(<$celltype align="right"><b>). $section->{'subtotal'}. "</b></$celltype></tr>";
43 <td><b>New Charges Total</b></td>
44 <td align="right"><b><%= $dollar.$current_less_finance %></b></td>
46 <tr><th colspan=2><br></th></tr>
47 <tr><td colspan=2><br></td></tr>
49 <td><b><u>Invoice Summary</u></b></td>
52 <tr><td colspan=2><br></td></tr>
54 <td><b>Previous Past Due Charges</b></td>
55 <td align="right"><b><%= $dollar.sprintf('%.2f', $true_previous_balance - $balance_adjustments) %></b></td>
58 <td><b>Finance charges on overdue amount</b></td>
59 <td align="right"><b><%= $dollar.$finance_amount %></b></td>
62 <td><b>New Charges</b></td>
63 <th align="right"><b><%= $dollar.$current_less_finance %></b></th>
68 #false laziness w/invoice_latexsummary and above
69 foreach my $section ( grep $_->{adjust_section}, @sections) {
70 $OUT .= '<tr><td><b>'. ($section->{'description'} ? $section->{'description'} : 'Charges' ). '</b></td>';
71 $OUT .= qq(<th align="right"><b>). $section->{'subtotal'}. "</b></th></tr>";
76 <td><b>Total Amount Due</b></td>
77 <td align="right"><b><%= $dollar.sprintf('%.2f', $balance) %></b></td>
79 <tr><th colspan=2><br></th></tr>