httemplate/browse/cust_pay_batch.cgi

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