[Koha-cvs] CVS: koha/admin aqbookfund.pl,1.1.2.2,1.1.2.3 aqbudget.pl,1.2.2.4,1.2.2.5 branches.pl,1.1.2.7,1.1.2.8 categorie.pl,1.1.2.1,1.1.2.2 categoryitem.pl,1.1.2.1,1.1.2.2 currency.pl,1.1.2.3,1.1.2.4 itemtypes.pl,1.1.2.3,1.1.2.4 itemtypesearchgroups.pl,1.1.2.1,1.1.2.2 printers.pl,1.1.2.6,1.1.2.7 stopwords.pl,1.1.2.4,1.1.2.5 systempreferences.pl,1.1.2.6,1.1.2.7 templates.pl,1.1.2.2,1.1.2.3 z3950servers.pl,1.1.2.3,1.1.2.4

[Steve Tonnesen]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv16981/admin

Modified Files:
      Tag: rel-1-2
        aqbookfund.pl aqbudget.pl branches.pl categorie.pl 
        categoryitem.pl currency.pl itemtypes.pl 
        itemtypesearchgroups.pl printers.pl stopwords.pl 
        systempreferences.pl templates.pl z3950servers.pl 
Log Message:
Added checkauth call to top of all intranet scripts.  This will allow
installations to choose to use basic authentication or Auth.pm to protect the
intranet side of Koha.  Note that all scripts require superlibrarian access by
default.


Index: aqbookfund.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbookfund.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** aqbookfund.pl       24 Jun 2002 18:38:36 -0000      1.1.2.2
--- aqbookfund.pl       9 Dec 2002 21:04:58 -0000       1.1.2.3
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $offset=$input->param('offset');

Index: aqbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/aqbudget.pl,v
retrieving revision 1.2.2.4
retrieving revision 1.2.2.5
diff -C2 -r1.2.2.4 -r1.2.2.5
*** aqbudget.pl 25 Jun 2002 23:06:19 -0000      1.2.2.4
--- aqbudget.pl 9 Dec 2002 21:04:58 -0000       1.2.2.5
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $offset=$input->param('offset');

Index: branches.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/branches.pl,v
retrieving revision 1.1.2.7
retrieving revision 1.1.2.8
diff -C2 -r1.1.2.7 -r1.1.2.8
*** branches.pl 23 Oct 2002 17:03:31 -0000      1.1.2.7
--- branches.pl 9 Dec 2002 21:04:58 -0000       1.1.2.8
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $pkfield="branchcode";

Index: categorie.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/categorie.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** categorie.pl        24 Jun 2002 18:38:36 -0000      1.1.2.1
--- categorie.pl        9 Dec 2002 21:04:58 -0000       1.1.2.2
***************
*** 47,50 ****
--- 47,57 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('description');
  my $script_name="/cgi-bin/koha/admin/categorie.pl";

Index: categoryitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/categoryitem.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** categoryitem.pl     24 Jun 2002 18:38:36 -0000      1.1.2.1
--- categoryitem.pl     9 Dec 2002 21:04:59 -0000       1.1.2.2
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('description');
  my $script_name="/cgi-bin/koha/admin/categorie.pl";

Index: currency.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/currency.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** currency.pl 20 Aug 2002 09:26:10 -0000      1.1.2.3
--- currency.pl 9 Dec 2002 21:04:59 -0000       1.1.2.4
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $pkfield="currency";

Index: itemtypes.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/itemtypes.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** itemtypes.pl        9 Jul 2002 13:05:49 -0000       1.1.2.3
--- itemtypes.pl        9 Dec 2002 21:05:00 -0000       1.1.2.4
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('description');
  my $offset=$input->param('offset');

Index: itemtypesearchgroups.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/Attic/itemtypesearchgroups.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** itemtypesearchgroups.pl     5 Nov 2002 19:47:11 -0000       1.1.2.1
--- itemtypesearchgroups.pl     9 Dec 2002 21:05:00 -0000       1.1.2.2
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $q_searchfield="'$searchfield'";

Index: printers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/printers.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -r1.1.2.6 -r1.1.2.7
*** printers.pl 17 Sep 2002 22:30:36 -0000      1.1.2.6
--- printers.pl 9 Dec 2002 21:05:00 -0000       1.1.2.7
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $pkfield="printername";

Index: stopwords.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/stopwords.pl,v
retrieving revision 1.1.2.4
retrieving revision 1.1.2.5
diff -C2 -r1.1.2.4 -r1.1.2.5
*** stopwords.pl        20 Aug 2002 09:30:25 -0000      1.1.2.4
--- stopwords.pl        9 Dec 2002 21:05:00 -0000       1.1.2.5
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $pkfield="word";

Index: systempreferences.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/systempreferences.pl,v
retrieving revision 1.1.2.6
retrieving revision 1.1.2.7
diff -C2 -r1.1.2.6 -r1.1.2.7
*** systempreferences.pl        30 Oct 2002 22:55:19 -0000      1.1.2.6
--- systempreferences.pl        9 Dec 2002 21:05:00 -0000       1.1.2.7
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $pkfield="variable";

Index: templates.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/Attic/templates.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** templates.pl        26 Aug 2002 17:08:56 -0000      1.1.2.2
--- templates.pl        9 Dec 2002 21:05:00 -0000       1.1.2.3
***************
*** 14,17 ****
--- 14,24 ----
  my $input = new CGI;
  
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
+ 
  
  my $configfile=configfile();

Index: z3950servers.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/z3950servers.pl,v
retrieving revision 1.1.2.3
retrieving revision 1.1.2.4
diff -C2 -r1.1.2.3 -r1.1.2.4
*** z3950servers.pl     25 Oct 2002 22:22:21 -0000      1.1.2.3
--- z3950servers.pl     9 Dec 2002 21:05:00 -0000       1.1.2.4
***************
*** 48,51 ****
--- 48,58 ----
  
  my $input = new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, 
$flagsrequired);
+ 
  my $searchfield=$input->param('searchfield');
  my $reqsel="select host,port,db,userid,password,name,id,checked,rank from 
z3950servers where (name = '$searchfield') order by rank,name";