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 use C4::Auth;
  12 my $input=new CGI;
  13 my $flagsrequired;
  14 $flagsrequired->{borrowers}=1;
  15 my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
  16
  17
  18
  19 my $bornum=$input->param('bornum');
  20 #get borrower details
  21 my $data=borrdata('',$bornum);
  22 my $order=$input->param('order');
  23 my $order2=$order;
  24 if ($order2 eq ''){
  25   $order2="date_due desc";
  26 }
  27 my $limit=$input->param('limit');
  28 if ($limit eq 'full'){
  29   $limit=0;
  30 } else {
  31   $limit=50;
  32 }
  33 my ($count,$issues)=allissues($bornum,$order2,$limit);
  34
  35
  36 print $input->header;
  37 print startpage();
  38 print startmenu('member');
  39 #print $count;
  40 print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
  41 print mktablehdr();
  42 print mktablerow(1,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=full>Full output</a>");
  43 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>");
  44 for (my $i=0;$i<$count;$i++){
  45   print mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'});
  46 }
  47 print mktableft();
  48 print endmenu('member');
  49 print endpage();
  50