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

(-)a/C4/SIP/ILS/Patron.pm (+11 lines)
Lines 24-29 use C4::Items qw( GetBarcodeFromItemnumber GetItemnumbersForBiblio); Link Here
24
use C4::Auth qw(checkpw);
24
use C4::Auth qw(checkpw);
25
25
26
use Koha::Libraries;
26
use Koha::Libraries;
27
use Koha::Patrons;
27
28
28
our $kp;    # koha patron
29
our $kp;    # koha patron
29
30
Lines 411-416 sub charge_denied { Link Here
411
    return "Please contact library staff";
412
    return "Please contact library staff";
412
}
413
}
413
414
415
sub update_lastseen {
416
    my $self = shift;
417
    my $p;
418
    if (C4::Context->preference('TrackLastPatronActivity')
419
        && $p = Koha::Patrons->find({ borrowernumber => $self->{borrowernumber} })) {
420
        $p->track_login;
421
    }
422
    return;
423
}
424
414
sub _get_address {
425
sub _get_address {
415
    my $patron = shift;
426
    my $patron = shift;
416
427
(-)a/C4/SIP/Sip/MsgType.pm (-1 / +1 lines)
Lines 932-937 sub handle_patron_info { Link Here
932
932
933
    $resp = (PATRON_INFO_RESP);
933
    $resp = (PATRON_INFO_RESP);
934
    if ($patron) {
934
    if ($patron) {
935
        $patron->update_lastseen();
935
        $resp .= patron_status_string($patron);
936
        $resp .= patron_status_string($patron);
936
        $resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language;
937
        $resp .= ( defined($lang) and length($lang) == 3 ) ? $lang : $patron->language;
937
        $resp .= timestamp();
938
        $resp .= timestamp();
938
- 

Return to bug 18625