<% # 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(), < # inv# Customer Card name Card Exp Amount 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! ( retry |!. # qq! remove )!; # } my $cardnum = $cust_pay_batch->{cardnum}; $cardnum =~ s/.{4}$/xxxx/; print < $cust_pay_batch->{paybatchnum} $cust_pay_batch->{invnum} $cust_pay_batch->{custnum} $cust_pay_batch->{last}, $cust_pay_batch->{last} $cust_pay_batch->{payname} $cardnum $cust_pay_batch->{exp} \$$cust_pay_batch->{amount} END } print < END %>