@@ -, +, @@ --- C4/SIP/ILS/Patron.pm | 11 +++++++++++ C4/SIP/Sip/MsgType.pm | 1 + 2 files changed, 12 insertions(+) --- a/C4/SIP/ILS/Patron.pm +++ a/C4/SIP/ILS/Patron.pm @@ -24,6 +24,7 @@ use C4::Items qw( GetBarcodeFromItemnumber GetItemnumbersForBiblio); use C4::Auth qw(checkpw); use Koha::Libraries; +use Koha::Patrons; our $kp; # koha patron @@ -411,6 +412,16 @@ sub charge_denied { return "Please contact library staff"; } +sub update_lastseen { + my $self = shift; + my $p; + if (C4::Context->preference('TrackLastPatronActivity') + && $p = Koha::Patrons->find({ borrowernumber => $self->{borrowernumber} })) { + $p->track_login; + } + return; +} + sub _get_address { my $patron = shift; --- a/C4/SIP/Sip/MsgType.pm +++ a/C4/SIP/Sip/MsgType.pm @@ -932,6 +932,7 @@ sub handle_patron_info { $resp = (PATRON_INFO_RESP); if ($patron) { + $patron->update_lastseen(); $resp .= patron_status_string($patron); $resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language; $resp .= timestamp(); --