<% 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 %>