From 32975d39be0cf8f677a8c103e826f2c446b0b5e6 Mon Sep 17 00:00:00 2001
From: tonnesen <tonnesen>
Date: Mon, 9 Sep 2002 17:41:49 +0000
Subject: [PATCH] Adding cookie-based authentication calls

---
 circ/branchtransfers.pl | 4 +++-
 circ/circulation.pl     | 4 ++--
 circ/returns.pl         | 4 +++-
 3 files changed, 8 insertions(+), 4 deletions(-)

diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl
index 691cd9453e..2e3397da04 100755
--- a/circ/branchtransfers.pl
+++ b/circ/branchtransfers.pl
@@ -26,6 +26,7 @@ use CGI;
 use C4::Circulation::Circ2;
 use C4::Output;
 use C4::Reserves2;
+use C4::Auth;
 
 ###############################################
 # constants
@@ -46,6 +47,7 @@ my $printers = getprinters(\%env);
 #  Getting state
 
 my $query=new CGI;
+my ($loggedinuser, $sessioncookie, $sessionID) = checkauth($query);
 
 
 my $branch = $query->param("branch");
@@ -293,7 +295,7 @@ EOF
 #######################################################################################
 # Make the page .....
 
-print $query->header;
+print $query->header(-cookie=>$sessioncookie);
 print startpage;
 #print startmenu('circulation');
 my @inp=startmenu('circulation');
diff --git a/circ/circulation.pl b/circ/circulation.pl
index 90acbece48..a468ee48d5 100755
--- a/circ/circulation.pl
+++ b/circ/circulation.pl
@@ -480,9 +480,9 @@ EOF
 
 
 if ($branchcookie && $printercookie) {
-    print $query->header(-type=>'text/html',-expires=>'now', -cookie=>[$branchcookie,$printercookie]);
+    print $query->header(-type=>'text/html',-expires=>'now', -cookie=>[$branchcookie,$printercookie,$sessioncookie]);
 } else {
-    print $query->header();
+    print $query->header(-cookie=>[$sessioncookie]);
 }
 
 print startpage();
diff --git a/circ/returns.pl b/circ/returns.pl
index 2f1657dcee..d6cf8e3eaa 100755
--- a/circ/returns.pl
+++ b/circ/returns.pl
@@ -28,6 +28,7 @@ use C4::Search;
 use C4::Output;
 use C4::Print;
 use C4::Reserves2;
+use C4::Auth;
 
 my %env;
 my $headerbackgroundcolor='#99cc33';
@@ -38,6 +39,7 @@ my $linecolor2='white';
 my $backgroundimage="/images/background-mem.gif";
 
 my $query=new CGI;
+my ($loggedinuser, $sessioncookie, $sessionID) = checkauth($query);
 my $branches = getbranches();
 my $printers = getprinters(\%env);
 
@@ -432,7 +434,7 @@ $returneditemstable .= "</table>\n";
 
 
 # actually print the page!
-print $query->header();
+print $query->header(-cookie => $sessioncookie);
 print startpage();
 print startmenu('circulation');
 
-- 
2.39.5