diff options
| author | ivan <ivan> | 2003-12-22 21:37:04 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2003-12-22 21:37:04 +0000 |
| commit | 2c0d7675caacd5891b7f699c92260d321b4d03b5 (patch) | |
| tree | 66da2676fd886bc5c836df03fe3f7e8bee91ebbe | |
| parent | c2671089005c4f4f1fb886b9936aa8d5eea5eb59 (diff) | |
add total cards & amount to pending batch screen
| -rwxr-xr-x | httemplate/browse/cust_pay_batch.cgi | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/httemplate/browse/cust_pay_batch.cgi b/httemplate/browse/cust_pay_batch.cgi index d90a03313..3420e97b6 100755 --- a/httemplate/browse/cust_pay_batch.cgi +++ b/httemplate/browse/cust_pay_batch.cgi @@ -14,8 +14,24 @@ Format <SELECT NAME="format"> <OPTION VALUE="csv-td_canada_trust-merchant_pc_batch">CSV results from TD Canada Trust Merchant PC Batch</OPTION> </SELECT><BR> <INPUT TYPE="submit" VALUE="Upload"></FORM> -<BR><BR> +<BR> + +<% + my $statement = "SELECT SUM(amount) from cust_pay_batch"; + my $sth = dbh->prepare($statement) or die dbh->errstr. "doing $statement"; + $sth->execute or die "Error executing \"$statement\": ". $sth->errstr; + my $total = $sth->fetchrow_arrayref->[0]; + + my $c_statement = "SELECT COUNT(*) from cust_pay_batch"; + my $c_sth = dbh->prepare($c_statement) + or die dbh->errstr. "doing $c_statement"; + $c_sth->execute or die "Error executing \"$c_statement\": ". $c_sth->errstr; + my $cards = $c_sth->fetchrow_arrayref->[0]; +%> +<%= $cards %> credit card payments batched<BR> +$<%= sprintf("%.2f", $total) %> total in pending batch<BR> +<BR> <%= &table() %> <TR> <TH>#</TH> |