From rangi@users.sourceforge.net Tue Jun 19 20:36:05 2001
From: Chris Cormack <rangi@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha readingrec.pl,1.1.1.1,1.2
Date: Tue, 19 Jun 2001 20:36:03 -0700
Message-ID: <E15CYmh-0007z3-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============3259312837130075470=="

--===============3259312837130075470==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv30477

Modified Files:
	readingrec.pl=20
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
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
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=3Dborrdata('',$bornum);
! my ($count,$issues)=3Dallissues($bornum);
 =20
 =20
--- 15,30 ----
  #get borrower details
  my $data=3Dborrdata('',$bornum);
! my $order=3D$input->param('order');
! my $order2=3D$order;
! if ($order2 eq ''){
!   $order2=3D"date_due desc";
! }
! my $limit=3D$input->param('limit');
! if ($limit eq 'full'){
!   $limit=3D0;
! } else {
!   $limit=3D50;
! }
! my ($count,$issues)=3Dallissues($bornum,$order2,$limit);
 =20
 =20
***************
*** 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=3D0;$i<$count;$i++){
!   print mktablerow(3,'white',$issues->[$i]->{'title'},$issues->[$i]->{'auth=
or'},$issues->[$i]->{'returndate'});
  }
  print mktableft();
--- 35,42 ----
  print mkheadr(3,"$data->{'title'} $data->{'initials'} $data->{'surname'}");
  print mktablehdr();
! print mktablerow(1,'white',"<a href=3D/cgi-bin/koha/readingrec.pl?bornum=3D=
$bornum&limit=3Dfull>Full output</a>");
! print mktablerow(4,'white',"<a href=3D/cgi-bin/koha/readingrec.pl?bornum=3D=
$bornum&order=3Dtitle&limit=3D$limit><b>TITLE</b></a>","<a href=3D/cgi-bin/ko=
ha/readingrec.pl?bornum=3D$bornum&order=3Dauthor&limit=3D$limit><b>AUTHOR</b>=
</a>","<a href=3D/cgi-bin/koha/readingrec.pl?bornum=3D$bornum&limit=3D$limit>=
<b>DATE</b></a>","<b>Volume</b>");
  for (my $i=3D0;$i<$count;$i++){
!   print mktablerow(4,'white',$issues->[$i]->{'title'},$issues->[$i]->{'auth=
or'},$issues->[$i]->{'returndate'},$issues->[$i]->{'volumeddesc'});
  }
  print mktableft();



--===============3259312837130075470==--