[Koha-cvs] CVS: koha/opac opac-reserve.pl,1.1.2.2,1.1.2.3 opac-user.pl,1.1.2.3,1.1.2.4
Finlay Thompson
finlayt at users.sourceforge.net
Mon Oct 14 11:39:38 CEST 2002
Update of /cvsroot/koha/koha/opac
In directory usw-pr-cvs1:/tmp/cvs-serv27419/opac
Modified Files:
Tag: rel-1-2
opac-reserve.pl opac-user.pl
Log Message:
added a flagsrequired line.
Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** opac-reserve.pl 11 Oct 2002 05:24:26 -0000 1.1.2.2
--- opac-reserve.pl 14 Oct 2002 09:39:36 -0000 1.1.2.3
***************
*** 17,21 ****
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
my $template = gettemplate("opac-reserve.tmpl", "opac");
--- 17,25 ----
! my $flagsrequired;
! $flagsrequired->{borrow}=1;
!
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired);
!
my $template = gettemplate("opac-reserve.tmpl", "opac");
Index: opac-user.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-user.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** opac-user.pl 2 Oct 2002 00:50:16 -0000 1.1.2.3
--- opac-user.pl 14 Oct 2002 09:39:36 -0000 1.1.2.4
***************
*** 4,8 ****
use CGI;
- use C4::Search; # borrdata
use C4::Output; # gettemplate
use C4::Auth; # checkauth, getborrowernumber.
--- 4,7 ----
***************
*** 13,17 ****
my $query = new CGI;
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query);
my $template = gettemplate("opac-user.tmpl", "opac");
--- 12,19 ----
my $query = new CGI;
! my $flagsrequired;
! $flagsrequired->{borrow}=1;
!
! my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, $flagsrequired);
my $template = gettemplate("opac-user.tmpl", "opac");
More information about the Koha-cvs
mailing list