reports.pl

   1 #!/usr/bin/perl
   2
   3 #script to display reports
   4 #written 8/11/99
   5
   6 use strict;
   7 use CGI;
   8 use C4::Output;
   9 use C4::Stats;
  10 use C4::Stock;
  11
  12 my $input = new CGI;
  13 print $input->header;
  14 my $type=$input->param('type');
  15 print startpage();
  16 print startmenu('issue');
  17 my @data;
  18 if ($type eq 'search'){
  19  @data=statsreport('search','something');
  20 }
  21 if ($type eq 'issue'){
  22  @data=statsreport('issue','today');
  23 }
  24 if ($type eq 'stock'){
  25  @data=stockreport();
  26 }
  27
  28 print mkheadr(1,"$type reports");
  29 print @data;
  30
  31 print endmenu('issue');
  32 print endpage();