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

(-)a/Koha/Patron.pm (-9 / +9 lines)
Lines 375-391 sub store { Link Here
375
                    my $info;
375
                    my $info;
376
                    my $from_storage = $self_from_storage->unblessed;
376
                    my $from_storage = $self_from_storage->unblessed;
377
                    my $from_object  = $self->unblessed;
377
                    my $from_object  = $self->unblessed;
378
379
                    # Object's dateexpiry is a DateTime object which stringifies to iso8601 datetime,
380
                    # but the column in only a date so we need to convert the datetime to just a date
381
                    # to know if it has actually changed.
382
                    $from_object->{dateexpiry} = dt_from_string( $from_object->{dateexpiry} )->ymd
383
                        if $from_object->{dateexpiry};
384
378
                    my @skip_fields  = (qw/lastseen updated_on/);
385
                    my @skip_fields  = (qw/lastseen updated_on/);
379
                    for my $key ( keys %{$from_storage} ) {
386
                    for my $key ( keys %{$from_storage} ) {
380
                        next if any { /$key/ } @skip_fields;
387
                        next if any { /$key/ } @skip_fields;
381
                        if (
388
                        if (   ( $from_storage->{$key} || $from_object->{$key} )
382
                            ( !defined( $from_storage->{$key} ) && defined( $from_object->{$key} ) )
389
                            && ( $from_storage->{$key} ne $from_object->{$key} ) )
383
                            || ( defined( $from_storage->{$key} )
384
                                && !defined( $from_object->{$key} ) )
385
                            || (   defined( $from_storage->{$key} )
386
                                && defined( $from_object->{$key} )
387
                                && ( $from_storage->{$key} ne $from_object->{$key} ) )
388
                            )
389
                        {
390
                        {
390
                            $info->{$key} = {
391
                            $info->{$key} = {
391
                                before => $from_storage->{$key},
392
                                before => $from_storage->{$key},
392
- 

Return to bug 36159