httemplate/search/report_receivables.cgi

   1 <!-- mason kludge -->
   2 <%
   3
   4 #my $user = getotaker;
   5 my $user = $FS::UID::user; #dumb 1.4 8-char workaround
   6
   7 print header('Current Receivables Report Results');
   8
   9 open (REPORT, "freeside-receivables-report -v $user |");
  10
  11 print '<PRE>';
  12 while(<REPORT>) {
  13   print $_;
  14 }
  15 print '</PRE>';
  16
  17 print '</BODY></HTML>';
  18
  19 %>
  20