Kumara - predecessor to Koha
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 

28 lines
467 B

#!/usr/bin/perl
#script to display reports
#written 8/11/99
use strict;
use CGI;
use C4::Output;
use C4::Stats;
my $input = new CGI;
print $input->header;
my $type=$input->param('type');
print startpage();
print startmenu('issue');
my @data;
if ($type eq 'search'){
@data=statsreport('search','something');
}
if ($type eq 'issue'){
@data=statsreport('issue','today');
}
print mkheadr(1,"$type reports");
print @data;
print endmenu('issue');
print endpage();