- # print subtotals
- $c0subtotal = $form->format_amount(\%myconfig, $c0subtotal, 2, " ");
- $c30subtotal = $form->format_amount(\%myconfig, $c30subtotal, 2, " ");
- $c60subtotal = $form->format_amount(\%myconfig, $c60subtotal, 2, " ");
- $c90subtotal = $form->format_amount(\%myconfig, $c90subtotal, 2, " ");
-
- print qq|
- <tr class=listsubtotal>
-|;
-
- map { $column_data{$_} = qq|<th> </th>| } @column_index;
-
- $column_data{c0} = qq|<th align=right class=listsubtotal>$c0subtotal</th>|;
- $column_data{c30} = qq|<th align=right class=listsubtotal>$c30subtotal</th>|;
- $column_data{c60} = qq|<th align=right class=listsubtotal>$c60subtotal</th>|;
- $column_data{c90} = qq|<th align=right class=listsubtotal>$c90subtotal</th>|;
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
- </tr>
- <tr class=listtotal>
-|;
-
- $c0total = $form->format_amount(\%myconfig, $c0total, 2, " ");
- $c30total = $form->format_amount(\%myconfig, $c30total, 2, " ");
- $c60total = $form->format_amount(\%myconfig, $c60total, 2, " ");
- $c90total = $form->format_amount(\%myconfig, $c90total, 2, " ");
-
- $column_data{c0} = qq|<th align=right class=listtotal>$c0total</th>|;
- $column_data{c30} = qq|<th align=right class=listtotal>$c30total</th>|;
- $column_data{c60} = qq|<th align=right class=listtotal>$c60total</th>|;
- $column_data{c90} = qq|<th align=right class=listtotal>$c90total</th>|;
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
- <input type=hidden name=rowcount value=$i>
- </tr>
- </table>
- </td>
- </tr>
- <tr>
- <td>
-|;