Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv30477
Modified Files:
readingrec.pl
Log Message:
Made a little change to allow the reading record to be sorted, and now
defaults to the last 50 items borrowed
Index: readingrec.pl
===================================================================
RCS file: /cvsroot/koha/koha/readingrec.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** readingrec.pl 2000/12/19 23:45:53 1.1.1.1
--- readingrec.pl 2001/06/20 03:36:01 1.2
***************
*** 15,19 ****
#get borrower details
my $data=borrdata('',$bornum);
! my ($count,$issues)=allissues($bornum);
--- 15,30 ----
#get borrower details
my $data=borrdata('',$bornum);
! my $order=$input->param('order');
! my $order2=$order;
! if ($order2 eq ''){
! $order2="date_due desc";
! }
! my $limit=$input->param('limit');
! if ($limit eq 'full'){
! $limit=0;
! } else {
! $limit=50;
! }
! my ($count,$issues)=allissues($bornum,$order2,$limit);
***************
*** 24,30 ****
print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
print mktablehdr();
! print mktablerow(4,'white',bold('TITLE'),bold('AUTHOR'),bold('DATE'));
for (my $i=0;$i<$count;$i++){
! print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'});
}
print mktableft();
--- 35,42 ----
print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
print mktablehdr();
! print mktablerow(1,'white',"<a href=/cgi-bin/koha/readingrec.pl?bornum=$bornum&limit=full>Full output</a>");
! 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>");
for (my $i=0;$i<$count;$i++){
! print mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'author'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'});
}
print mktableft();
