Adding cookie-based authentication calls

This commit is contained in:
tonnesen 2002-09-09 17:41:49 +00:00
parent e1c477eb43
commit 32975d39be
3 changed files with 8 additions and 4 deletions

View File

@ -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');

View File

@ -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();

View File

@ -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');