Lines 990-1001
sub checkauth {
Link Here
|
990 |
|
990 |
|
991 |
} |
991 |
} |
992 |
else { |
992 |
else { |
|
|
993 |
$debug and warn "Login failed, resetting anonymous session..."; |
993 |
if ($userid) { |
994 |
if ($userid) { |
994 |
$info{'invalid_username_or_password'} = 1; |
995 |
$info{'invalid_username_or_password'} = 1; |
995 |
C4::Context->_unset_userenv($sessionID); |
996 |
C4::Context->_unset_userenv($sessionID); |
996 |
} |
997 |
} |
997 |
$session->param('lasttime',time()); |
998 |
$session->param('lasttime',time()); |
998 |
$session->param('ip',$session->remote_addr()); |
999 |
$session->param('ip',$session->remote_addr()); |
|
|
1000 |
$session->param('sessiontype','anon'); |
999 |
} |
1001 |
} |
1000 |
} # END if ( $userid = $query->param('userid') ) |
1002 |
} # END if ( $userid = $query->param('userid') ) |
1001 |
elsif ($type eq "opac") { |
1003 |
elsif ($type eq "opac") { |
1002 |
- |
|
|