Initial revision
[wip/koha-chris_n.git] / 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();