|
Lines 382-388
sub store {
Link Here
|
| 382 |
my $from_storage = $self_from_storage->_unblessed_for_log; |
382 |
my $from_storage = $self_from_storage->_unblessed_for_log; |
| 383 |
my $from_object = $self->_unblessed_for_log; |
383 |
my $from_object = $self->_unblessed_for_log; |
| 384 |
|
384 |
|
| 385 |
my @keys = C4::Context->preference("BorrowersLog") ? keys %{$from_storage} : ('cardnumber'); |
385 |
my %all_keys = map { $_ => 1 } ( keys %{$from_storage}, keys %{$from_object} ); |
|
|
386 |
my @keys = C4::Context->preference("BorrowersLog") ? keys %all_keys : ('cardnumber'); |
| 386 |
my $changed; |
387 |
my $changed; |
| 387 |
for my $key (@keys) { |
388 |
for my $key (@keys) { |
| 388 |
my $storage_value = $from_storage->{$key} // q{}; |
389 |
my $storage_value = $from_storage->{$key} // q{}; |
| 389 |
- |
|
|