gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Adding authentication calls to intranet scripts

This commit is contained in:
uid41696 2002-09-09 19:56:55 +00:00
parent 19cece1350
commit b7e8fe81ad
8 changed files with 55 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
boraccount.pl
View File

@ -7,8 +7,14 @@ use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Auth;
my $input=new CGI;
my $flagsrequired;
$flagsrequired->{circulation}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
my $bornum=$input->param('bornum');
#get borrower details

7
charges.pl
View File

@ -7,8 +7,15 @@ use strict;
use CGI;
use C4::Output;
use C4::Database;
use C4::Auth;
my $input = new CGI;
my $flagsrequired;
$flagsrequired->{circulation}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
print $input->header;
my $type=$input->param('type');
print startpage();

11
deletemem.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
#script to delete items
#script to delete borrowers
#written 2/5/00
#by chris@katipo.co.nz
@ -12,8 +12,17 @@ use C4::Output;
use C4::Database;
use C4::Circulation::Circ2;
#use C4::Acquisitions;
use C4::Auth;
my $input = new CGI;
my $flagsrequired;
$flagsrequired->{borrower}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
#print $input->header;
my $member=$input->param('member');
my %env;

6
imemberentry.pl
View File

@ -7,9 +7,15 @@ use strict;
use C4::Output;
use CGI;
use C4::Search;
use C4::Auth;
my $input = new CGI;
my $flagsrequired;
$flagsrequired->{borrower}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
my $member=$input->param('bornum');
if ($member eq ''){
$member=NewBorrowerNumber();

6
insertdata.pl
View File

@ -9,9 +9,15 @@ use C4::Database;
use C4::Input;
use C4::Search;
use Date::Manip;
use C4::Auth;
use strict;
my $input= new CGI;
my $flagsrequired;
$flagsrequired->{borrower}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
#print $input->header;
#print $input->dump;

6
insertidata.pl
View File

@ -8,9 +8,15 @@ use CGI;
use C4::Database;
use C4::Input;
use Date::Manip;
use C4::Auth;
use strict;
my $input= new CGI;
my $flagsrequired;
$flagsrequired->{borrower}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
#print $input->header;
#print $input->Dump;

8
insertjdata.pl
View File

@ -8,9 +8,17 @@ use CGI;
use C4::Database;
use C4::Input;
use Date::Manip;
use C4::Auth;
use strict;
my $input= new CGI;
my $flagsrequired;
$flagsrequired->{borrower}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
#print $input->header;
#print $input->Dump;

6
loadmodules.pl
View File

@ -8,8 +8,14 @@ use C4::Acquisitions;
use C4::Biblio;
use C4::Search;
use CGI;
use C4::Auth;
my $input=new CGI;
my $flagsrequired;
#$flagsrequired->{borrower}=1;
my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
my $module=$input->param('module');
SWITCH: {