3 #script to display reports
14 my $type=$input->param('type');
16 print startmenu('issue');
18 if ($type eq 'search'){
19 @data=statsreport('search','something');
21 if ($type eq 'issue'){
22 @data=statsreport('issue','today');
24 if ($type eq 'stock'){
28 print mkheadr(1,"$type reports");
31 print endmenu('issue');