projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 3.15.00.041: DBrev 11867
[koha_fer]
/
installer
/
InstallAuth.pm
diff --git
a/installer/InstallAuth.pm
b/installer/InstallAuth.pm
index
5b99c1f
..
0015a14
100644
(file)
--- a/
installer/InstallAuth.pm
+++ b/
installer/InstallAuth.pm
@@
-262,7
+262,11
@@
sub checkauth {
$session->param('emailaddress'),
$session->param('branchprinter')
);
$session->param('emailaddress'),
$session->param('branchprinter')
);
- $cookie = $query->cookie( CGISESSID => $session->id );
+ $cookie = $query->cookie(
+ -name => 'CGISESSID',
+ -value => $session->id,
+ -HttpOnly => 1,
+ );
$loggedin = 1;
$userid = $session->param('cardnumber');
}
$loggedin = 1;
$userid = $session->param('cardnumber');
}
@@
-298,7
+302,11
@@
sub checkauth {
# printf L "%20s from %16s logged in at %30s.\n", $userid,
# $ENV{'REMOTE_ADDR'}, $time;
# close L;
# printf L "%20s from %16s logged in at %30s.\n", $userid,
# $ENV{'REMOTE_ADDR'}, $time;
# close L;
- $cookie = $query->cookie( CGISESSID => $sessionID );
+ $cookie = $query->cookie(
+ -name => 'CGISESSID',
+ -value => $sessionID,
+ -HttpOnly => 1,
+ );
if ( $return == 2 ) {
#Only superlibrarian should have access to this page.
if ( $return == 2 ) {
#Only superlibrarian should have access to this page.
@@
-342,6
+350,7
@@
sub checkauth {
$cookie = $query->cookie(
-name => 'CGISESSID',
-value => '',
$cookie = $query->cookie(
-name => 'CGISESSID',
-value => '',
+ -HttpOnly => 1,
-expires => ''
);
}
-expires => ''
);
}
@@
-382,6
+391,7
@@
sub checkauth {
$cookie = $query->cookie(
-name => 'CGISESSID',
-value => $sessionID,
$cookie = $query->cookie(
-name => 'CGISESSID',
-value => $sessionID,
+ -HttpOnly => 1,
-expires => ''
);
print $query->header(
-expires => ''
);
print $query->header(