From 104761e917a38b126cdbce392cbd5969484c9c20 Mon Sep 17 00:00:00 2001
From: Kyle M Hall <kyle@bywatersolutions.com>
Date: Fri, 1 Mar 2024 09:50:07 -0500
Subject: [PATCH] Bug 36159: Patron imports record a change for non-text
 columns that are not in the import file

When importing patrons we assume a default of '' for borrower columns not supplied in the file.

When saving we compare the new object we built to the one form the database - for columns are that are not text type we get undef from the db and '' in the object we make. This means we see a difference and log into the BorrowersLog:

   "date_renewed" : {
      "after" : "",
      "before" : null
   },
   "dateofbirth" : {
      "after" : "",
      "before" : null
   },
   "debarred" : {
      "after" : "",
      "before" : null
   },
   "flags" : {
      "after" : "",
      "before" : null
   },
   "gonenoaddress" : {
      "after" : "",
      "before" : null
   },
   "lost" : {
      "after" : "",
      "before" : null
   },
   "password_expiration_date" : {
      "after" : "",
      "before" : null
   },
   "sms_provider_id" : {
      "after" : "",
      "before" : null
   }
}

This can mean a lot of useless logging in sites that do automated imports

Test Plan:
1) Enable 'BorrowersLog' system preference
2) Import the borrowers file attach do this bug report file, matchig on cardnuber, and overwriting
   Contents of the borrowers file are :
surname,firstname,branchcode,categorycode,cardnumber,dateenrolled,patron_attributes,lastseen
Acosta,Ednb,CPL,PT,23529001000463,02/01/2013,,
3) Check the logs, note the modification of columns that have no date
4) Import the file again with the same settings
5) Note the new action log
6) Apply this patch
7) Restart all the things!
8) Import the file again with the same settings
9) Note no new action log was created!

Signed-off-by: Brendan Lawlor <blawlor@clamsnet.org>

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
(cherry picked from commit 67680d5d6a782ff81ba21b6910318e6d5d32afd0)
Signed-off-by: Fridolin Somers <fridolin.somers@biblibre.com>
---
 Koha/Patron.pm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/Koha/Patron.pm b/Koha/Patron.pm
index 5b0bd9ea7f..265bcd78be 100644
--- a/Koha/Patron.pm
+++ b/Koha/Patron.pm
@@ -375,17 +375,18 @@ sub store {
                     my $info;
                     my $from_storage = $self_from_storage->unblessed;
                     my $from_object  = $self->unblessed;
+
+                    # Object's dateexpiry is a DateTime object which stringifies to iso8601 datetime,
+                    # but the column in only a date so we need to convert the datetime to just a date
+                    # to know if it has actually changed.
+                    $from_object->{dateexpiry} = dt_from_string( $from_object->{dateexpiry} )->ymd
+                        if $from_object->{dateexpiry};
+
                     my @skip_fields  = (qw/lastseen updated_on/);
                     for my $key ( keys %{$from_storage} ) {
                         next if any { /$key/ } @skip_fields;
-                        if (
-                            ( !defined( $from_storage->{$key} ) && defined( $from_object->{$key} ) )
-                            || ( defined( $from_storage->{$key} )
-                                && !defined( $from_object->{$key} ) )
-                            || (   defined( $from_storage->{$key} )
-                                && defined( $from_object->{$key} )
-                                && ( $from_storage->{$key} ne $from_object->{$key} ) )
-                            )
+                        if (   ( $from_storage->{$key} || $from_object->{$key} )
+                            && ( $from_storage->{$key} ne $from_object->{$key} ) )
                         {
                             $info->{$key} = {
                                 before => $from_storage->{$key},
-- 
2.39.5