[Koha-cvs] CVS: koha/acqui acquire.pl,1.2.2.2,1.2.2.3 addorder.pl,1.3.2.2,1.3.2.3 basket.pl,1.2.2.1,1.2.2.2 finishreceive.pl,1.1.1.1.2.2,1.1.1.1.2.3 modorders.pl,1.1.1.1.2.1,1.1.1.1.2.2 newbasket.pl,1.1.1.1.2.2,1.1.1.1.2.3 newbasket2.pl,1.1.1.1.2.2,1.1.1.1.2.3 newbiblio.pl,1.2.2.3,1.2.2.4 order.pl,1.1.1.1.2.1,1.1.1.1.2.2 receive.pl,1.1.1.1.2.3,1.1.1.1.2.4 recieveorder.pl,1.1.1.1.2.1,1.1.1.1.2.2 supplier.pl,1.1.1.1.2.1,1.1.1.1.2.2 updatesupplier.pl,1.1.1.1.2.1,1.1.1.1.2.2

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	acquire.pl addorder.pl basket.pl finishreceive.pl modorders.pl 
	newbasket.pl newbasket2.pl newbiblio.pl order.pl receive.pl 
	recieveorder.pl supplier.pl updatesupplier.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: acquire.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/acquire.pl,v
retrieving revision 1.2.2.2
retrieving revision 1.2.2.3
diff -C2 -r1.2.2.2 -r1.2.2.3
*** acquire.pl	14 Jun 2002 21:20:27 -0000	1.2.2.2
--- acquire.pl	9 Dec 2002 21:04:54 -0000	1.2.2.3
***************
*** 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();
  my $id=$input->param('id');

Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.3.2.2
retrieving revision 1.3.2.3
diff -C2 -r1.3.2.2 -r1.3.2.3
*** addorder.pl	24 Jun 2002 14:15:14 -0000	1.3.2.2
--- addorder.pl	9 Dec 2002 21:04:55 -0000	1.3.2.3
***************
*** 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;
  #print startpage();

Index: basket.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/basket.pl,v
retrieving revision 1.2.2.1
retrieving revision 1.2.2.2
diff -C2 -r1.2.2.1 -r1.2.2.2
*** basket.pl	14 Jun 2002 21:20:27 -0000	1.2.2.1
--- basket.pl	9 Dec 2002 21:04:55 -0000	1.2.2.2
***************
*** 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 $basket=$input->param('basket');

Index: finishreceive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/finishreceive.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
*** finishreceive.pl	23 Aug 2002 01:56:04 -0000	1.1.1.1.2.2
--- finishreceive.pl	9 Dec 2002 21:04:55 -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;
  

Index: modorders.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/modorders.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
*** modorders.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.1
--- modorders.pl	9 Dec 2002 21:04:55 -0000	1.1.1.1.2.2
***************
*** 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;
  #print startpage();

Index: newbasket.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbasket.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
*** newbasket.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.2
--- newbasket.pl	9 Dec 2002 21:04:56 -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 $user=$input->remote_user;

Index: newbasket2.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbasket2.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
*** newbasket2.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.2
--- newbasket2.pl	9 Dec 2002 21:04:56 -0000	1.1.1.1.2.3
***************
*** 12,15 ****
--- 12,22 ----
  my $env;
  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;
  #whether it is called from the opac of the intranet                                                            

Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.2.2.3
retrieving revision 1.2.2.4
diff -C2 -r1.2.2.3 -r1.2.2.4
*** newbiblio.pl	21 Jun 2002 13:15:06 -0000	1.2.2.3
--- newbiblio.pl	9 Dec 2002 21:04:56 -0000	1.2.2.4
***************
*** 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();
  my $id=$input->param('id');

Index: order.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/order.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
*** order.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.1
--- order.pl	9 Dec 2002 21:04:56 -0000	1.1.1.1.2.2
***************
*** 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 $supplier=$input->param('supplier');

Index: receive.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/receive.pl,v
retrieving revision 1.1.1.1.2.3
retrieving revision 1.1.1.1.2.4
diff -C2 -r1.1.1.1.2.3 -r1.1.1.1.2.4
*** receive.pl	20 Jun 2002 17:45:55 -0000	1.1.1.1.2.3
--- receive.pl	9 Dec 2002 21:04:56 -0000	1.1.1.1.2.4
***************
*** 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 $id=$input->param('id');

Index: recieveorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/recieveorder.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
*** recieveorder.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.1
--- recieveorder.pl	9 Dec 2002 21:04:56 -0000	1.1.1.1.2.2
***************
*** 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 $id=$input->param('id');

Index: supplier.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/supplier.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
*** supplier.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.1
--- supplier.pl	9 Dec 2002 21:04:56 -0000	1.1.1.1.2.2
***************
*** 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 $id=$input->param('id');

Index: updatesupplier.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/updatesupplier.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
*** updatesupplier.pl	14 Jun 2002 21:20:27 -0000	1.1.1.1.2.1
--- updatesupplier.pl	9 Dec 2002 21:04:57 -0000	1.1.1.1.2.2
***************
*** 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 $supplier=$input->param('supplier');