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

(-)a/Koha/Patron.pm (-26 / +15 lines)
Lines 255-287 sub store { Link Here
255
                    $self->add_enrolment_fee_if_needed;
255
                    $self->add_enrolment_fee_if_needed;
256
                }
256
                }
257
257
258
                my $borrowers_log = C4::Context->preference("BorrowersLog");
258
                # Actionlogs
259
                my $previous_cardnumber = $self_from_storage->cardnumber;
259
                if ( C4::Context->preference("BorrowersLog") ) {
260
                if ($borrowers_log
260
                    my $info;
261
                    && ( !defined $previous_cardnumber
261
                    for my $key ( keys %{ $self_from_storage->unblessed } ) {
262
                        || $previous_cardnumber ne $self->cardnumber )
262
                        if ( $self_from_storage->$key ne $self->$key ) {
263
                    )
263
                            $info->{$key} = {
264
                {
264
                                before => $self_from_storage->$key,
265
                    logaction(
265
                                after  => $self->$key
266
                        "MEMBERS",
266
                            };
267
                        "MODIFY",
267
                        }
268
                        $self->borrowernumber,
268
                    }
269
                        to_json(
270
                            {
271
                                cardnumber_replaced => {
272
                                    previous_cardnumber => $previous_cardnumber,
273
                                    new_cardnumber      => $self->cardnumber,
274
                                }
275
                            },
276
                            { utf8 => 1, pretty => 1 }
277
                        )
278
                    );
279
                }
280
269
281
                logaction( "MEMBERS", "MODIFY", $self->borrowernumber,
270
                    logaction( "MEMBERS", "MODIFY", $self->borrowernumber,
282
                    "UPDATE (executed w/ arg: " . $self->borrowernumber . ")" )
271
                        to_json( $info, { utf8 => 1, pretty => 1, canonical => 1 } ) );
283
                  if $borrowers_log;
272
                }
284
273
274
                # Final store
285
                $self = $self->SUPER::store;
275
                $self = $self->SUPER::store;
286
            }
276
            }
287
        }
277
        }
288
- 

Return to bug 3820