reservereport.pl

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