@@ -, +, @@ table size --- C4/Reserves.pm | 9 ++++----- Koha/Hold.pm | 8 ++++---- Koha/Item.pm | 2 +- 3 files changed, 9 insertions(+), 10 deletions(-) --- a/C4/Reserves.pm +++ a/C4/Reserves.pm @@ -257,7 +257,7 @@ sub AddReserve { )->store(); $hold->set_waiting() if $found && $found eq 'W'; - logaction( 'HOLDS', 'CREATE', $hold->id, Dumper($hold->unblessed) ) + logaction( 'HOLDS', 'CREATE', $hold->id, Data::Dumper->new([$hold->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); my $reserve_id = $hold->id(); @@ -1046,7 +1046,7 @@ sub ModReserve { $hold->cancel({ cancellation_reason => $cancellation_reason }); } elsif ($rank =~ /^\d+/ and $rank > 0) { - logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) + logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Data::Dumper->new([$hold->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); my $properties = { @@ -1107,8 +1107,7 @@ sub ModReserveFill { priority => 0, } ); - - logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->unblessed) ) + logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Data::Dumper->new([$hold->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); # FIXME Must call Koha::Hold->cancel ? => No, should call ->filled and add the correct log @@ -1236,7 +1235,7 @@ sub ModReserveAffect { }); $std->execute($hold->reserve_id); - logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Dumper($hold->get_from_storage->unblessed) ) + logaction( 'HOLDS', 'MODIFY', $hold->reserve_id, Data::Dumper->new([$hold->get_from_storage->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); return; --- a/Koha/Hold.pm +++ a/Koha/Hold.pm @@ -114,7 +114,7 @@ sub suspend_hold { $self->suspend_until($date); $self->store(); - logaction( 'HOLDS', 'SUSPEND', $self->reserve_id, Dumper( $self->unblessed ) ) + logaction( 'HOLDS', 'SUSPEND', $self->reserve_id, Data::Dumper->new([$self->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); return $self; @@ -134,7 +134,7 @@ sub resume { $self->store(); - logaction( 'HOLDS', 'RESUME', $self->reserve_id, Dumper($self->unblessed) ) + logaction( 'HOLDS', 'RESUME', $self->reserve_id, Data::Dumper->new([$self->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); return $self; @@ -151,7 +151,7 @@ sub delete { my $deleted = $self->SUPER::delete($self); - logaction( 'HOLDS', 'DELETE', $self->reserve_id, Dumper($self->unblessed) ) + logaction( 'HOLDS', 'DELETE', $self->reserve_id, Data::Dumper->new([$self->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); return $deleted; @@ -569,7 +569,7 @@ sub cancel { ); } - C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Dumper($self->unblessed) ) + C4::Log::logaction( 'HOLDS', 'CANCEL', $self->reserve_id, Data::Dumper->new([$self->unblessed], [qw(hold)])->Indent(0)->Sortkeys(1)->Dump ) if C4::Context->preference('HoldsLog'); } ); --- a/Koha/Item.pm +++ a/Koha/Item.pm @@ -203,7 +203,7 @@ sub store { if ( $log_action && C4::Context->preference("CataloguingLog") ) { $action eq 'create' ? logaction( "CATALOGUING", "ADD", $self->itemnumber, "item" ) - : logaction( "CATALOGUING", "MODIFY", $self->itemnumber, "item " . Dumper( $self->unblessed ) ); + : logaction( "CATALOGUING", "MODIFY", $self->itemnumber, "item " . Data::Dumper->new([$self->unblessed], [qw(item)])->Indent(0)->Sortkeys(1)->Dump ); } my $indexer = Koha::SearchEngine::Indexer->new({ index => $Koha::SearchEngine::BIBLIOS_INDEX }); $indexer->index_records( $self->biblionumber, "specialUpdate", "biblioserver" ) --