[Koha-cvs] CVS: koha modbib.pl,1.1.1.1.2.2,1.1.1.1.2.3 modbibitem.pl,1.4.2.1,1.4.2.2 moditem.pl,1.1.1.1.2.2,1.1.1.1.2.3 moredetail.pl,1.4.2.2,1.4.2.3 moremember.pl,1.11.2.4,1.11.2.5 newimember.pl,1.1.1.1,1.1.1.1.2.1 newjmember.pl,1.1.1.1,1.1.1.1.2.1 newmember.pl,1.1.1.1,1.1.1.1.2.1 readingrec.pl,1.2,1.2.2.1 request.pl,1.2.2.3,1.2.2.4

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
        modbib.pl modbibitem.pl moditem.pl moredetail.pl moremember.pl 
        newimember.pl newjmember.pl newmember.pl readingrec.pl 
        request.pl 
Log Message:
More checkauth() calls added to intranet scripts


Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.1.1.1.2.2
retrieving revision 1.1.1.1.2.3
diff -C2 -r1.1.1.1.2.2 -r1.1.1.1.2.3
*** modbib.pl   28 Jun 2002 12:07:45 -0000      1.1.1.1.2.2
--- modbib.pl   11 Sep 2002 21:28:28 -0000      1.1.1.1.2.3
***************
*** 10,15 ****
--- 10,20 ----
  use CGI;
  use C4::Output;
+ use C4::Auth;
  
  my $input = new CGI;
+ 
+ my $flagsrequired;
+ $flagsrequired->{editcatalogue}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
  
  my $bibnum=$input->param('bibnum');

Index: modbibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbibitem.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** modbibitem.pl       29 May 2002 14:36:00 -0000      1.4.2.1
--- modbibitem.pl       11 Sep 2002 21:28:28 -0000      1.4.2.2
***************
*** 11,18 ****
--- 11,24 ----
  use C4::Output;
  use C4::Koha;
+ use C4::Auth;
  use CGI;
  
  
  my $input = new CGI;
+ 
+ my $flagsrequired;
+ $flagsrequired->{editcatalogue}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  #
  my $bibitemnum=$input->param('bibitem');

Index: moditem.pl
===================================================================
RCS file: /cvsroot/koha/koha/moditem.pl,v
retrieving revision 1.1.1.1.2.2
retrieving revision 1.1.1.1.2.3
diff -C2 -r1.1.1.1.2.2 -r1.1.1.1.2.3
*** moditem.pl  14 Jun 2002 21:20:26 -0000      1.1.1.1.2.2
--- moditem.pl  11 Sep 2002 21:28:28 -0000      1.1.1.1.2.3
***************
*** 12,17 ****
--- 12,23 ----
  use C4::Acquisitions;
  use C4::Biblio;
+ use C4::Auth;
  
  my $input = new CGI;
+ 
+ my $flagsrequired;
+ $flagsrequired->{editcatalogue}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $submit=$input->param('delete.x');
  my $itemnum=$input->param('item');

Index: moredetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/moredetail.pl,v
retrieving revision 1.4.2.2
retrieving revision 1.4.2.3
diff -C2 -r1.4.2.2 -r1.4.2.3
*** moredetail.pl       11 Jul 2002 18:05:28 -0000      1.4.2.2
--- moredetail.pl       11 Sep 2002 21:28:28 -0000      1.4.2.3
***************
*** 8,14 ****
--- 8,18 ----
  use C4::Acquisitions;
  use C4::Output; # contains picktemplate
+ use C4::Auth;
    
  my $query=new CGI;
  
+ my $flagsrequired;
+ $flagsrequired->{catalogue}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, 
$flagsrequired);
  
  my $language='french';
***************
*** 99,102 ****
--- 103,107 ----
  $template->param(BIBITEM_DATA => address@hidden);
  $template->param(ITEM_DATA => address@hidden);
+ $template->param(loggedinuser => $loggedinuser);
  print "Content-Type: text/html\n\n", $template->output;
  

Index: moremember.pl
===================================================================
RCS file: /cvsroot/koha/koha/moremember.pl,v
retrieving revision 1.11.2.4
retrieving revision 1.11.2.5
diff -C2 -r1.11.2.4 -r1.11.2.5
*** moremember.pl       27 Jul 2002 05:30:12 -0000      1.11.2.4
--- moremember.pl       11 Sep 2002 21:28:28 -0000      1.11.2.5
***************
*** 20,25 ****
--- 20,29 ----
  use C4::Circulation::Circ2;
  use C4::Koha;
+ use C4::Auth;
  
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrowers}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
  my $bornum=$input->param('bornum');
  

Index: newimember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newimember.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -r1.1.1.1 -r1.1.1.1.2.1
*** newimember.pl       19 Dec 2000 23:45:52 -0000      1.1.1.1
--- newimember.pl       11 Sep 2002 21:28:28 -0000      1.1.1.1.2.1
***************
*** 6,9 ****
--- 6,10 ----
  use C4::Output;
  use C4::Input;
+ use C4::Auth;
  use CGI;
  use Date::Manip;
***************
*** 11,14 ****
--- 12,19 ----
  my %env;
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrower}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  #get varibale that tells us whether to show confirmation page
  #or insert data

Index: newjmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newjmember.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -r1.1.1.1 -r1.1.1.1.2.1
*** newjmember.pl       19 Dec 2000 23:45:52 -0000      1.1.1.1
--- newjmember.pl       11 Sep 2002 21:28:28 -0000      1.1.1.1.2.1
***************
*** 6,9 ****
--- 6,10 ----
  use C4::Output;
  use C4::Input;
+ use C4::Auth;
  use CGI;
  use Date::Manip;
***************
*** 11,14 ****
--- 12,18 ----
  my %env;
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrower}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
  #get varibale that tells us whether to show confirmation page
  #or insert data

Index: newmember.pl
===================================================================
RCS file: /cvsroot/koha/koha/newmember.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.1.1.1.2.1
diff -C2 -r1.1.1.1 -r1.1.1.1.2.1
*** newmember.pl        19 Dec 2000 23:45:52 -0000      1.1.1.1
--- newmember.pl        11 Sep 2002 21:28:28 -0000      1.1.1.1.2.1
***************
*** 6,9 ****
--- 6,11 ----
  use C4::Output;
  use C4::Input;
+ use C4::Input;
+ use C4::Auth;
  use CGI;
  use Date::Manip;
***************
*** 11,14 ****
--- 13,19 ----
  my %env;
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrower}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
  #get varibale that tells us whether to show confirmation page
  #or insert data

Index: readingrec.pl
===================================================================
RCS file: /cvsroot/koha/koha/readingrec.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** readingrec.pl       20 Jun 2001 03:36:01 -0000      1.2
--- readingrec.pl       11 Sep 2002 21:28:28 -0000      1.2.2.1
***************
*** 9,13 ****
--- 9,18 ----
  use CGI;
  use C4::Search;
+ use C4::Auth;
  my $input=new CGI;
+ my $flagsrequired;
+ $flagsrequired->{borrowers}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  
  

Index: request.pl
===================================================================
RCS file: /cvsroot/koha/koha/request.pl,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -C2 -r1.2.2.3 -r1.2.2.4
*** request.pl  29 Jun 2002 16:19:14 -0000      1.2.2.3
--- request.pl  11 Sep 2002 21:28:28 -0000      1.2.2.4
***************
*** 12,18 ****
--- 12,23 ----
  use C4::Biblio;
  use C4::Koha;
+ use C4::Auth;
  
  use CGI;
  my $input = new CGI;
+ my $flagsrequired;
+ $flagsrequired->{reserveforothers}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  print $input->header;