reservereport.xls

   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 CGI;
   9 use C4::Output;
  10
  11 my $input=new CGI;
  12
  13 #print $input->header;
  14
  15 #print startpage;
  16 #print startmenu('report');
  17 #print center;
  18 #print mktablehdr();
  19 my ($count,$data)=unfilledreserves();
  20 #print $count;
  21 for (my $i=0;$i<$count;$i++){
  22 #  print mktablerow(4,'white',"$data->[$i]->{'surname'}\, $data->[$i]->{'firstname'}",$data->[$i]->{'reservedate'},$data->[$i]->{'title'},"$data->[$i]->{'classification'}$data->[$i]->{'dewey'}");
  23   print "$data->[$i]->{'surname'}\'$data->[$i]->{'firstname'}\t$data->[$i]->{'reservedate'}\t$data->[$i]->{'title'}\t$data->[$i]->{'classification'}$data->[$i]->{'dewey'}$data->[$i]->{'subclass'}\n";
  24 }
  25 #print mktableft();
  26 #print endmenu('report');
  27 #print endpage;