From b7e8fe81ad3b6576d2ed6aaf86d86a0629fce929 Mon Sep 17 00:00:00 2001
From: uid41696 <uid41696>
Date: Mon, 9 Sep 2002 19:56:55 +0000
Subject: [PATCH] Adding authentication calls to intranet scripts

---
 boraccount.pl   |  6 ++++++
 charges.pl      |  7 +++++++
 deletemem.pl    | 11 ++++++++++-
 imemberentry.pl |  6 ++++++
 insertdata.pl   |  6 ++++++
 insertidata.pl  |  6 ++++++
 insertjdata.pl  |  8 ++++++++
 loadmodules.pl  |  6 ++++++
 8 files changed, 55 insertions(+), 1 deletion(-)

diff --git a/boraccount.pl b/boraccount.pl
index db67e21a9d..2c72251a0f 100755
--- a/boraccount.pl
+++ b/boraccount.pl
@@ -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
diff --git a/charges.pl b/charges.pl
index 6cf06b2779..8cc909abab 100755
--- a/charges.pl
+++ b/charges.pl
@@ -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();
diff --git a/deletemem.pl b/deletemem.pl
index dd16d45eb4..6290069b59 100755
--- a/deletemem.pl
+++ b/deletemem.pl
@@ -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;
diff --git a/imemberentry.pl b/imemberentry.pl
index d457619910..3c858c92bd 100755
--- a/imemberentry.pl
+++ b/imemberentry.pl
@@ -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();
diff --git a/insertdata.pl b/insertdata.pl
index b88f3f96b5..8574a116d9 100755
--- a/insertdata.pl
+++ b/insertdata.pl
@@ -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;
 
diff --git a/insertidata.pl b/insertidata.pl
index d7c1aee2dc..8a307bfcbf 100755
--- a/insertidata.pl
+++ b/insertidata.pl
@@ -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;
 
diff --git a/insertjdata.pl b/insertjdata.pl
index b519283b59..fd85bcbf39 100755
--- a/insertjdata.pl
+++ b/insertjdata.pl
@@ -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;
 
diff --git a/loadmodules.pl b/loadmodules.pl
index 83a3d3d4b1..1b132b28c2 100755
--- a/loadmodules.pl
+++ b/loadmodules.pl
@@ -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: {