View | Details | Raw Unified | Return to bug 12954
Collapse All | Expand All

(-)a/C4/Auth.pm (-5 / +12 lines)
Lines 734-740 sub checkauth { Link Here
734
        }
734
        }
735
        elsif ( !$lasttime || ($lasttime < time() - $timeout) ) {
735
        elsif ( !$lasttime || ($lasttime < time() - $timeout) ) {
736
            # timed logout
736
            # timed logout
737
            $info{'timed_out'} = 1;
737
            $info{'timed_out'} = 1 if $lasttime;
738
            if ($session) {
738
            if ($session) {
739
                $session->delete();
739
                $session->delete();
740
                $session->flush;
740
                $session->flush;
Lines 992-1003 sub checkauth { Link Here
992
992
993
            }
993
            }
994
            else {
994
            else {
995
                ## if we got here, it is an unsuccessfull login attempt
995
                if ($userid) {
996
                if ($userid) {
996
                    $info{'invalid_username_or_password'} = 1;
997
                    $info{'invalid_username_or_password'} = 1;
997
                    C4::Context->_unset_userenv($sessionID);
998
                }
998
                }
999
                $session->param('lasttime',time());
999
                if ($session) {
1000
                $session->param('ip',$session->remote_addr());
1000
                    $session->delete();
1001
                    $session->flush;
1002
                }
1003
                C4::Context->_unset_userenv($sessionID) if $sessionID;
1004
                $userid    = undef;
1005
                $sessionID = undef;
1006
                ## probably not a good idea (at least not without setting up 'sessiontype' to 'anon' as well ?)
1007
                # $session->param('lasttime',time());
1008
                # $session->param('ip',$session->remote_addr());
1001
            }
1009
            }
1002
        }    # END if ( $userid    = $query->param('userid') )
1010
        }    # END if ( $userid    = $query->param('userid') )
1003
        elsif ($type eq "opac") {
1011
        elsif ($type eq "opac") {
1004
- 

Return to bug 12954