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
624 B

  1. #!/usr/bin/perl
  2. #written 26/4/2000
  3. #script to display reports
  4. use C4::Stats;
  5. use strict;
  6. use Date::Manip;
  7. use CGI;
  8. use C4::Output;
  9. my $input=new CGI;
  10. my $time=$input->param('time');
  11. print $input->header;
  12. print startpage;
  13. print startmenu('report');
  14. print center;
  15. print mktablehdr();
  16. my ($count,$data)=unfilledreserves();
  17. print $count;
  18. for (my $i=0;$i<$count;$i++){
  19. print mktablerow(4,'white',"$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}",$data->[$i]->{'reservedate'},$data->[$i]->{'title'},"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}");
  20. }
  21. print mktableft();
  22. print endmenu('report');
  23. print endpage;