readingrec.pl

   1 #!/usr/bin/perl
   2
   3 #written 27/01/2000
   4 #script to display borrowers reading record
   5
   6
   7 use strict;
   8 use C4::Output;
   9 use CGI;
  10 use C4::Search;
  11 my $input=new CGI;
  12
  13
  14 my $bornum=$input->param('bornum');
  15 #get borrower details
  16 my $data=borrdata('',$bornum);
  17 my ($count,$issues)=allissues($bornum);
  18
  19
  20 print $input->header;
  21 print startpage();
  22 print startmenu('member');
  23 #print $count;
  24 print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
  25 print mktablehdr();
  26 print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE'));
  27 for (my $i=0;$i<$count;$i++){
  28   print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'});
  29 }
  30 print mktableft();
  31 print endmenu('member');
  32 print endpage();
  33