END
my(%saw, $cust_pay);
+ my $tot_amount = 0;
foreach my $cust_pay (
sort $sortby grep(!$saw{$_->paynum}++, @cust_pay)
) {
sprintf("%.2f", $cust_pay->paid),
$cust_pay->_date,
);
+ $tot_amount += $amount;
my $pdate = time2str("%b %d %Y", $date);
my $rowspan = 1;
print "</TR>";
}
- print <<END;
+
+ $tot_amount = sprintf("%.2f", $tot_amount);
+ print '</TABLE><BR>'. table(). <<END;
+ <TR>
+ <TH>Total Amount</TH>
+ <TD ALIGN="right">\$$tot_amount</TD>
+ </TR>
</TABLE>
</BODY>
</HTML>