httemplate/search/report_tax.cgi

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