httemplate/browse/cust_pay_batch.cgi

   1 <!-- $Id: cust_pay_batch.cgi,v 1.2 2002-01-30 14:18:08 ivan Exp $ -->
   2 <%
   3
   4 print header("Pending credit card batch", menubar(
   5   'Main Menu' => $p,
   6 #  'Add new referral' => "../edit/part_referral.cgi",
   7 )), &table(), <<END;
   8       <TR>
   9         <TH>#</TH>
  10         <TH><font size=-1>inv#</font></TH>
  11         <TH COLSPAN=2>Customer</TH>
  12         <TH>Card name</TH>
  13         <TH>Card</TH>
  14         <TH>Exp</TH>
  15         <TH>Amount</TH>
  16       </TR>
  17 END
  18
  19 foreach my $cust_pay_batch ( sort {
  20   $a->getfield('paybatchnum') <=> $b->getfield('paybatchnum')
  21 } qsearch('cust_pay_batch',{}) ) {
  22 #  my $date = time2str( "%a %b %e %T %Y", $queue->_date );
  23 #  my $status = $hashref->{status};
  24 #  if ( $status eq 'failed' || $status eq 'locked' ) {
  25 #    $status .=
  26 #      qq! ( <A HREF="$p/edit/cust_pay_batch.cgi?jobnum=$jobnum&action=new">retry</A> |!.
  27 #      qq! <A HREF="$p/edit/cust_pay_batch.cgi?jobnum$jobnum&action=del">remove </A> )!;
  28 #  }
  29   my $cardnum = $cust_pay_batch->{cardnum};
  30   $cardnum =~ s/.{4}$/xxxx/;
  31   print <<END;
  32       <TR>
  33         <TD>$cust_pay_batch->{paybatchnum}</TD>
  34         <TD><A HREF="../view/cust_bill.cgi?$cust_pay_batch->{invnum}">$cust_pay_batch->{invnum}</TD>
  35         <TD><A HREF="../view/cust_main.cgi?$cust_pay_batch->{custnum}">$cust_pay_batch->{custnum}</TD>
  36         <TD>$cust_pay_batch->{last}, $cust_pay_batch->{last}</TD>
  37         <TD>$cust_pay_batch->{payname}</TD>
  38         <TD>$cardnum</TD>
  39         <TD>$cust_pay_batch->{exp}</TD>
  40         <TD align="right">\$$cust_pay_batch->{amount}</TD>
  41       </TR>
  42 END
  43
  44 }
  45
  46 print <<END;
  47     </TABLE>
  48   </BODY>
  49 </HTML>
  50 END
  51
  52 %>