httemplate/search/report_cc.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 my $user = getotaker;
   5
   6 $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/;
   7 my $beginning = $1;
   8
   9 $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/;
  10 my $ending = $1;
  11
  12 print header('Credit Card Recipt Report Results');
  13
  14 open (REPORT, "freeside-cc-receipts-report -v -s $beginning -f $ending $user |");
  15
  16 print '<PRE>';
  17 while(<REPORT>) {
  18   print $_;
  19 }
  20 print '</PRE>';
  21
  22 print '</BODY></HTML>';
  23
  24 %>
  25