Lines 780-786
sub checkauth {
Link Here
|
780 |
} |
780 |
} |
781 |
elsif ( !$lasttime || ($lasttime < time() - $timeout) ) { |
781 |
elsif ( !$lasttime || ($lasttime < time() - $timeout) ) { |
782 |
# timed logout |
782 |
# timed logout |
783 |
$info{'timed_out'} = 1; |
783 |
$info{'timed_out'} = 1 if $lasttime; |
784 |
if ($session) { |
784 |
if ($session) { |
785 |
$session->delete(); |
785 |
$session->delete(); |
786 |
$session->flush; |
786 |
$session->flush; |
Lines 1053-1064
sub checkauth {
Link Here
|
1053 |
|
1053 |
|
1054 |
} |
1054 |
} |
1055 |
else { |
1055 |
else { |
|
|
1056 |
## if we got here, it is an unsuccessfull login attempt |
1056 |
if ($userid) { |
1057 |
if ($userid) { |
1057 |
$info{'invalid_username_or_password'} = 1; |
1058 |
$info{'invalid_username_or_password'} = 1; |
1058 |
C4::Context->_unset_userenv($sessionID); |
|
|
1059 |
} |
1059 |
} |
1060 |
$session->param('lasttime',time()); |
1060 |
if ($session) { |
1061 |
$session->param('ip',$session->remote_addr()); |
1061 |
$session->delete(); |
|
|
1062 |
$session->flush; |
1063 |
} |
1064 |
C4::Context->_unset_userenv($sessionID) if $sessionID; |
1065 |
$userid = undef; |
1066 |
$sessionID = undef; |
1067 |
## probably not a good idea (at least not without setting up 'sessiontype' to 'anon' as well ?) |
1068 |
# $session->param('lasttime',time()); |
1069 |
# $session->param('ip',$session->remote_addr()); |
1062 |
} |
1070 |
} |
1063 |
} # END if ( $userid = $query->param('userid') ) |
1071 |
} # END if ( $userid = $query->param('userid') ) |
1064 |
elsif ($type eq "opac") { |
1072 |
elsif ($type eq "opac") { |
1065 |
- |
|
|