From db5ee577596498504c6ccf59ba81fcb11b417382 Mon Sep 17 00:00:00 2001 From: Martin Renvoize Date: Tue, 19 Feb 2019 12:37:14 +0000 Subject: [PATCH] Bug 3820: (follow-up) Address lastseen log spamming Signed-off-by: Martin Renvoize --- Koha/Patron.pm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/Koha/Patron.pm b/Koha/Patron.pm index c2b4738a34..8d76de2c57 100644 --- a/Koha/Patron.pm +++ b/Koha/Patron.pm @@ -21,7 +21,7 @@ package Koha::Patron; use Modern::Perl; use Carp; -use List::MoreUtils qw( uniq ); +use List::MoreUtils qw( any uniq ); use JSON qw( to_json ); use Text::Unaccent qw( unac_string ); @@ -260,7 +260,9 @@ sub store { my $info; my $from_storage = $self_from_storage->unblessed; my $from_object = $self->unblessed; + my @skip_fields = (qw/lastseen/); for my $key ( keys %{$from_storage} ) { + next if any { /$key/ } @skip_fields; if ( ( !defined( $from_storage->{$key} ) @@ -294,11 +296,6 @@ sub store { ) ); } - else { - logaction( "MEMBERS", "MODIFY", $self->borrowernumber, - "NON-STANDARD FIELD CHANGED" ); - - } } # Final store -- 2.20.1