diff options
author | ivan <ivan> | 2001-10-30 19:05:27 +0000 |
---|---|---|
committer | ivan <ivan> | 2001-10-30 19:05:27 +0000 |
commit | 20c1183d2673b62bd0e29eb65f0a9a2c974b8027 (patch) | |
tree | 6525e063127591fb6059d88fa5cdeeb422c45843 /httemplate/browse | |
parent | 57a1412bb70af3fdd7e3acd9e487c66260105776 (diff) |
depriciate cust_pay_batch.trancode
web interface to view pending batch
Diffstat (limited to 'httemplate/browse')
-rwxr-xr-x | httemplate/browse/cust_pay_batch.cgi | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/httemplate/browse/cust_pay_batch.cgi b/httemplate/browse/cust_pay_batch.cgi new file mode 100755 index 000000000..7779bd0c3 --- /dev/null +++ b/httemplate/browse/cust_pay_batch.cgi @@ -0,0 +1,68 @@ +<% +#<!-- $Id: cust_pay_batch.cgi,v 1.1 2001-10-30 19:05:27 ivan Exp $ --> + +use strict; +use vars qw( $cgi $p ); # $part_referral ); +use CGI; +use CGI::Carp qw(fatalsToBrowser); +use Date::Format; +use FS::UID qw(cgisuidsetup); +use FS::Record qw(qsearch); +use FS::CGI qw(header menubar popurl table); +use FS::queue; + +$cgi = new CGI; + +&cgisuidsetup($cgi); + +$p = popurl(2); + +print header("Pending credit card batch", menubar( + 'Main Menu' => $p, +# 'Add new referral' => "../edit/part_referral.cgi", +)), &table(), <<END; + <TR> + <TH>#</TH> + <TH><font size=-1>inv#</font></TH> + <TH COLSPAN=2>Customer</TH> + <TH>Card name</TH> + <TH>Card</TH> + <TH>Exp</TH> + <TH>Amount</TH> + </TR> +END + +foreach my $cust_pay_batch ( sort { + $a->getfield('paybatchnum') <=> $b->getfield('paybatchnum') +} qsearch('cust_pay_batch',{}) ) { +# my $date = time2str( "%a %b %e %T %Y", $queue->_date ); +# my $status = $hashref->{status}; +# if ( $status eq 'failed' || $status eq 'locked' ) { +# $status .= +# qq! ( <A HREF="$p/edit/cust_pay_batch.cgi?jobnum=$jobnum&action=new">retry</A> |!. +# qq! <A HREF="$p/edit/cust_pay_batch.cgi?jobnum$jobnum&action=del">remove </A> )!; +# } + my $cardnum = $cust_pay_batch->{cardnum}; + $cardnum =~ s/.{4}$/xxxx/; + print <<END; + <TR> + <TD>$cust_pay_batch->{paybatchnum}</TD> + <TD><A HREF="../view/cust_bill.cgi?$cust_pay_batch->{invnum}">$cust_pay_batch->{invnum}</TD> + <TD><A HREF="../view/cust_main.cgi?$cust_pay_batch->{custnum}">$cust_pay_batch->{custnum}</TD> + <TD>$cust_pay_batch->{last}, $cust_pay_batch->{last}</TD> + <TD>$cust_pay_batch->{payname}</TD> + <TD>$cardnum</TD> + <TD>$cust_pay_batch->{exp}</TD> + <TD align="right">\$$cust_pay_batch->{amount}</TD> + </TR> +END + +} + +print <<END; + </TABLE> + </BODY> +</HTML> +END + +%> |