4 #script to display borrowers reading record
14 my $bornum=$input->param('bornum');
16 my $data=borrdata
('',$bornum);
17 my $order=$input->param('order');
20 $order2="date_due desc";
22 my $limit=$input->param('limit');
23 if ($limit eq 'full'){
28 my ($count,$issues)=allissues
($bornum,$order2,$limit);
33 print startmenu
('member');
35 print mkheadr
(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
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'});
43 print endmenu
('member');