[Koha-cvs] CVS: koha bookcount.pl,1.1.4.2,1.1.4.3 currency.pl,1.1.1.1.2.2,1.1.1.1.2.3 groups.pl,1.1.2.2,1.1.2.3 jmemberentry.pl,1.1.1.1,1.1.1.1.2.1 logout.pl,1.2.2.3,1.2.2.4 mancredit.pl,1.2,1.2.2.1 maninvoice.pl,1.2,1.2.2.1 modrequest.pl,1.1.1.1,1.1.1.1.2.1 orderbreakdown.pl,1.1.1.1.2.1,1.1.1.1.2.2 overdue.pl,1.1.2.1,1.1.2.2 pay.pl,1.3,1.3.2.1 placerequest.pl,1.1.1.1,1.1.1.1.2.1 renewscript.pl,1.2,1.2.2.1 reports.pl,1.1.1.1,1.1.1.1.2.1 reservereport.pl,1.1.1.1,1.1.1.1.2.1 showbudget.pl,1.2.2.1,1.2.2.2 simpleredirect.pl,1.1.1.1,1.1.1.1.2.1 stats.pl,1.4,1.4.2.1 stats2.pl,1.1.1.1,1.1.1.1.2.1 subjectsearch.pl,1.1.1.1.2.2,1.1.1.1.2.3 tidyaccounts.pl,1.1.1.1,1.1.1.1.2.1

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
        bookcount.pl currency.pl groups.pl jmemberentry.pl logout.pl 
        mancredit.pl maninvoice.pl modrequest.pl orderbreakdown.pl 
        overdue.pl pay.pl placerequest.pl renewscript.pl reports.pl 
        reservereport.pl showbudget.pl simpleredirect.pl stats.pl 
        stats2.pl subjectsearch.pl tidyaccounts.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: bookcount.pl
===================================================================
RCS file: /cvsroot/koha/koha/bookcount.pl,v
retrieving revision 1.1.4.2
retrieving revision 1.1.4.3
diff -C2 -r1.1.4.2 -r1.1.4.3
*** bookcount.pl        28 Oct 2002 17:45:14 -0000      1.1.4.2
--- bookcount.pl        9 Dec 2002 21:04:53 -0000       1.1.4.3
***************
*** 37,40 ****
--- 37,47 ----
  
  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 $itm = $input->param('itm');
  my $bi = $input->param('bi');

Index: currency.pl
===================================================================
RCS file: /cvsroot/koha/koha/currency.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
*** currency.pl 28 Oct 2002 17:45:14 -0000      1.1.1.1.2.2
--- currency.pl 9 Dec 2002 21:04:54 -0000       1.1.1.1.2.3
***************
*** 34,37 ****
--- 34,44 ----
  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 $type=$input->param('type');
  #find out what the script is being called for

Index: groups.pl
===================================================================
RCS file: /cvsroot/koha/koha/groups.pl,v
retrieving revision 1.1.2.2
retrieving revision 1.1.2.3
diff -C2 -r1.1.2.2 -r1.1.2.3
*** groups.pl   28 Oct 2002 17:45:14 -0000      1.1.2.2
--- groups.pl   9 Dec 2002 21:04:54 -0000       1.1.2.3
***************
*** 37,40 ****
--- 37,47 ----
  
  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 $time=$input->param('time');
  #print $input->header;

Index: jmemberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/jmemberentry.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
*** jmemberentry.pl     19 Dec 2000 23:45:51 -0000      1.1.1.1
--- jmemberentry.pl     9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 11,14 ****
--- 11,21 ----
  
  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 $member=$input->param('bornum');
  if ($member eq ''){

Index: logout.pl
===================================================================
RCS file: /cvsroot/koha/koha/logout.pl,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -C2 -r1.2.2.3 -r1.2.2.4
*** logout.pl   9 Dec 2002 20:39:38 -0000       1.2.2.3
--- logout.pl   9 Dec 2002 21:04:54 -0000       1.2.2.4
***************
*** 7,10 ****
--- 7,17 ----
  my $query=new CGI;
  
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($query, 0, 
$flagsrequired);
+ 
+ 
  my $sessionID=$query->cookie('sessionID');
  

Index: mancredit.pl
===================================================================
RCS file: /cvsroot/koha/koha/mancredit.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** mancredit.pl        9 May 2001 23:22:10 -0000       1.2
--- mancredit.pl        9 Dec 2002 21:04:54 -0000       1.2.2.1
***************
*** 11,14 ****
--- 11,21 ----
  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 $bornum=$input->param('bornum');

Index: maninvoice.pl
===================================================================
RCS file: /cvsroot/koha/koha/maninvoice.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** maninvoice.pl       9 May 2001 23:22:10 -0000       1.2
--- maninvoice.pl       9 Dec 2002 21:04:54 -0000       1.2.2.1
***************
*** 11,14 ****
--- 11,21 ----
  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 $bornum=$input->param('bornum');

Index: modrequest.pl
===================================================================
RCS file: /cvsroot/koha/koha/modrequest.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
*** modrequest.pl       19 Dec 2000 23:45:52 -0000      1.1.1.1
--- modrequest.pl       9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 13,16 ****
--- 13,23 ----
  
  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);
+ 
  #print $input->header;
  

Index: orderbreakdown.pl
===================================================================
RCS file: /cvsroot/koha/koha/Attic/orderbreakdown.pl,v
retrieving revision 1.1.1.1.2.1
retrieving revision 1.1.1.1.2.2
diff -C2 -r1.1.1.1.2.1 -r1.1.1.1.2.2
*** orderbreakdown.pl   14 Jun 2002 21:20:26 -0000      1.1.1.1.2.1
--- orderbreakdown.pl   9 Dec 2002 21:04:54 -0000       1.1.1.1.2.2
***************
*** 9,12 ****
--- 9,19 ----
  use CGI;
  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);
+ 
  print $input->header();
  my $id=$input->param('id');

Index: overdue.pl
===================================================================
RCS file: /cvsroot/koha/koha/overdue.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** overdue.pl  10 Nov 2002 03:45:42 -0000      1.1.2.1
--- overdue.pl  9 Dec 2002 21:04:54 -0000       1.1.2.2
***************
*** 7,10 ****
--- 7,17 ----
  
  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);
+ 
  print $input->header;
  my $type=$input->param('type');

Index: pay.pl
===================================================================
RCS file: /cvsroot/koha/koha/pay.pl,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -r1.3 -r1.3.2.1
*** pay.pl      27 Mar 2002 00:02:40 -0000      1.3
--- pay.pl      9 Dec 2002 21:04:54 -0000       1.3.2.1
***************
*** 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);
+ 
+ 
  #print $input->header;
  my $bornum=$input->param('bornum');

Index: placerequest.pl
===================================================================
RCS file: /cvsroot/koha/koha/placerequest.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
*** placerequest.pl     19 Dec 2000 23:45:53 -0000      1.1.1.1
--- placerequest.pl     9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 12,15 ****
--- 12,22 ----
  
  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);
+ 
  #print $input->header;
  

Index: renewscript.pl
===================================================================
RCS file: /cvsroot/koha/koha/renewscript.pl,v
retrieving revision 1.2
retrieving revision 1.2.2.1
diff -C2 -r1.2 -r1.2.2.1
*** renewscript.pl      9 May 2001 23:23:52 -0000       1.2
--- renewscript.pl      9 Dec 2002 21:04:54 -0000       1.2.2.1
***************
*** 8,11 ****
--- 8,18 ----
  #get input
  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);
+ 
  #print $input->header;
  

Index: reports.pl
===================================================================
RCS file: /cvsroot/koha/koha/reports.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
*** reports.pl  19 Dec 2000 23:45:53 -0000      1.1.1.1
--- reports.pl  9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 11,14 ****
--- 11,21 ----
  
  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);
+ 
  print $input->header;
  my $type=$input->param('type');

Index: reservereport.pl
===================================================================
RCS file: /cvsroot/koha/koha/reservereport.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
*** reservereport.pl    19 Dec 2000 23:45:53 -0000      1.1.1.1
--- reservereport.pl    9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 11,14 ****
--- 11,21 ----
  
  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 $time=$input->param('time');
  print $input->header;

Index: showbudget.pl
===================================================================
RCS file: /cvsroot/koha/koha/showbudget.pl,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -C2 -r1.2.2.1 -r1.2.2.2
*** showbudget.pl       14 Jun 2002 21:20:26 -0000      1.2.2.1
--- showbudget.pl       9 Dec 2002 21:04:54 -0000       1.2.2.2
***************
*** 9,12 ****
--- 9,19 ----
  #use CGI;
  #my $inp=new CGI;
+ 
+ # Authentication script added, superlibrarian set as default requirement
+ 
+ my $flagsrequired;
+ $flagsrequired->{superlibrarian}=1;
+ my ($loggedinuser, $cookie, $sessionID) = checkauth($inp, 0, $flagsrequired);
+ 
  #print $inp->header;
  my ($count,@results)=bookfunds;

Index: simpleredirect.pl
===================================================================
RCS file: /cvsroot/koha/koha/simpleredirect.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
*** simpleredirect.pl   19 Dec 2000 23:45:53 -0000      1.1.1.1
--- simpleredirect.pl   9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 9,12 ****
--- 9,19 ----
  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 $choice=$input->param('chooseform');
  

Index: stats.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats.pl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -C2 -r1.4 -r1.4.2.1
*** stats.pl    2 Apr 2001 22:51:26 -0000       1.4
--- stats.pl    9 Dec 2002 21:04:54 -0000       1.4.2.1
***************
*** 11,14 ****
--- 11,21 ----
  
  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 $time=$input->param('time');
  print $input->header;

Index: stats2.pl
===================================================================
RCS file: /cvsroot/koha/koha/stats2.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
*** stats2.pl   19 Dec 2000 23:45:53 -0000      1.1.1.1
--- stats2.pl   9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 13,16 ****
--- 13,23 ----
  
  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 $time=$input->param('time');
  print $input->header;

Index: subjectsearch.pl
===================================================================
RCS file: /cvsroot/koha/koha/subjectsearch.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
*** subjectsearch.pl    26 Jul 2002 18:23:54 -0000      1.1.1.1.2.2
--- subjectsearch.pl    9 Dec 2002 21:04:54 -0000       1.1.1.1.2.3
***************
*** 11,14 ****
--- 11,21 ----
  
  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);
+ 
  print $input->header;
  my $type=$input->param('type');

Index: tidyaccounts.pl
===================================================================
RCS file: /cvsroot/koha/koha/tidyaccounts.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
*** tidyaccounts.pl     19 Dec 2000 23:45:53 -0000      1.1.1.1
--- tidyaccounts.pl     9 Dec 2002 21:04:54 -0000       1.1.1.1.2.1
***************
*** 11,14 ****
--- 11,21 ----
  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);
+ 
+ 
  #print $input->header();
  #print $input->dump;