httemplate/misc/download-batch.cgi

   1 <%
   2
   3 #http_header('Content-Type' => 'text/comma-separated-values' ); #IE chokes
   4 http_header('Content-Type' => 'text/plain' );
   5
   6 for my $cust_pay_batch ( sort { $a->paybatchnum <=> $b->paybatchnum }
   7                               qsearch('cust_pay_batch', {} )
   8 ) {
   9
  10 $cust_pay_batch->exp =~ /^\d{2}(\d{2})[\/\-](\d+)[\/\-]\d+$/;
  11 my( $mon, $y ) = ( $2, $1 );
  12 $mon = "0$mon" if $mon < 10;
  13 my $exp = "$mon$y";
  14
  15 %>,,,,<%= $cust_pay_batch->cardnum %>,<%= $exp %>,<%= $cust_pay_batch->amount %>,<%= $cust_pay_batch->paybatchnum %>
  16 <% } %>