@@ -, +, @@ --- C4/Auth.pm | 3 +++ Koha/Patron.pm | 5 +++++ 2 files changed, 8 insertions(+) --- a/C4/Auth.pm +++ a/C4/Auth.pm @@ -802,6 +802,7 @@ sub checkauth { my $q_userid = $query->param('userid') // ''; my $session; + print STDERR "Auth 1\n"; # Basic authentication is incompatible with the use of Shibboleth, # as Shibboleth may return REMOTE_USER as a Shibboleth attribute, @@ -828,6 +829,7 @@ sub checkauth { } elsif ( $sessionID = $query->cookie("CGISESSID") ) { # assignment, not comparison + print STDERR "Auth 2\n"; $session = get_session($sessionID); C4::Context->_new_userenv($sessionID); my ( $ip, $lasttime, $sessiontype ); @@ -1221,6 +1223,7 @@ sub checkauth { if ( $userid ) { # track_login also depends on pref TrackLastPatronActivity my $patron = Koha::Patrons->find({ userid => $userid }); + print STDERR "Auth 3: $userid\n"; $patron->track_login( { session => $session } ) if $patron; } --- a/Koha/Patron.pm +++ a/Koha/Patron.pm @@ -404,15 +404,20 @@ sub has_overdues { sub track_login { my ( $self, $params ) = @_; + print STDERR "Patron 1\n"; my $session = $params->{session}; return unless C4::Context->preference('TrackLastPatronActivity') || $params->{force}; + print STDERR "Patron 2\n"; if ( $session ) { + print STDERR "Patron 3\n"; return if $session->param('tracked_for_session') && !$params->{force}; + print STDERR "Patron 4\n"; $session->param('tracked_for_session', 1); } + print STDERR "Patron 5\n"; $self->lastseen( dt_from_string() )->store; } --