=head2 update_lastseen

    $patron->update_lastseen();

    Patron method to update lastseen field in borrower

    to record that patron has been seen via sip connection

=cut

sub update_lastseen {

    my $self = shift;

    my $kohaobj = Koha::Patrons->find( $self->{borrowernumber} );

    $kohaobj->track_login if $kohaobj; # track_login checks the pref

}

subtest "update_lastseen tests" => sub {

    plan tests => 2;

    my $seen_patron = $builder->build(

        {

            source => 'Borrower',

            value  => {

                lastseen    => "2001-01-01",

            }

        }

    );

    my $sip_patron = C4::SIP::ILS::Patron->new( $seen_patron->{cardnumber} );

    t::lib::Mocks::mock_preference( 'TrackLastPatronActivity', '' );

    $sip_patron->update_lastseen();

    $seen_patron = Koha::Patrons->find({ cardnumber => $seen_patron->{cardnumber} });

    is( output_pref({str => $seen_patron->lastseen(), dateonly => 1}), output_pref({str => '2001-01-01', dateonly => 1}),'Last seen not updated if not tracking patrons');

    t::lib::Mocks::mock_preference( 'TrackLastPatronActivity', '1' );

    $sip_patron->update_lastseen();

    $seen_patron = Koha::Patrons->find({ cardnumber => $seen_patron->cardnumber() });

    is( output_pref({str => $seen_patron->lastseen(), dateonly => 1}), output_pref({dt => dt_from_string(), dateonly => 1}),'Last seen updated to today if tracking patrons');

};

-