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 $order=$input->param('order');
  18 my $order2=$order;
  19 if ($order2 eq ''){
  20   $order2="date_due desc";
  21 }
  22 my $limit=$input->param('limit');
  23 if ($limit eq 'full'){
  24   $limit=0;
  25 } else {
  26   $limit=50;
  27 }
  28 my ($count,$issues)=allissues($bornum,$order2,$limit);
  29
  30
  31 print $input->header;
  32 print startpage();
  33 print startmenu('member');
  34 #print $count;
  35 print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
  36 print mktablehdr();
  37 print mktablerow(1,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=full>Full output</a>");
  38 print mktablerow(4,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=title&limit=$limit><b>TITLE</b></a>","<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&order=author&limit=$limit><b>AUTHOR</b></a>","<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=$limit><b>DATE</b></a>","<b>Volume</b>");
  39 for (my $i=0;$i<$count;$i++){
  40   print mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'});
  41 }
  42 print mktableft();
  43 print endmenu('member');
  44 print endpage();
  45