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.

33 lines
529 B

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