[Koha-cvs] CVS: koha/acqui.simple addbookslccn.pl,1.4.2.1,1.4.2.2 viewmarc.pl,1.1.2.1,1.1.2.2

[Steve Tonnesen]

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

Modified Files:
      Tag: rel-1-2
	addbookslccn.pl viewmarc.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: addbookslccn.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbookslccn.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** addbookslccn.pl	14 Jun 2002 21:20:27 -0000	1.4.2.1
--- addbookslccn.pl	9 Dec 2002 21:04:57 -0000	1.4.2.2
***************
*** 23,26 ****
--- 23,33 ----
  
  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 $dbh=C4Connect;
  

Index: viewmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/viewmarc.pl,v
retrieving revision 1.1.2.1
retrieving revision 1.1.2.2
diff -C2 -r1.1.2.1 -r1.1.2.2
*** viewmarc.pl	14 Jun 2002 21:20:27 -0000	1.1.2.1
--- viewmarc.pl	9 Dec 2002 21:04:57 -0000	1.1.2.2
***************
*** 18,21 ****
--- 18,28 ----
  
  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 $dbh=C4Connect;
  my $fields;