CVS: koha readingrec.pl,1.1.1.1,1.2

20 Jun 2001


      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();

Chris Cormack

tags

participants (1)