[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]

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