gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Bug 28692: (QA follow-up) Fix test for objects 

Fix the bug where object is first stringified and then tested for
being a Koha::Item.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Marcel de Rooy 2021-11-12 10:40:32 +00:00 committed by Jonathan Druart
parent 2d528efc69
commit 6abe27e7b8
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
C4/Log.pm
View File

@ -26,6 +26,7 @@ use warnings;
use Data::Dumper qw( Dumper );
use JSON qw( to_json );
use Scalar::Util qw( blessed );
use C4::Context;
use Koha::Logger;
@ -77,13 +78,14 @@ sub logaction {
$usernumber ||= 0;
$interface //= C4::Context->interface;
if ( ref($infos) && ref($infos) !~ /HASH|ARRAY/ && $infos->isa('Koha::Object') ) {
if( blessed($infos) && $infos->isa('Koha::Object') ) {
$infos = $infos->get_from_storage if $infos->in_storage;
local $Data::Dumper::Sortkeys = 1;
$infos = Dumper( $infos->unblessed );
if ( $infos->isa('Koha::Item') && $modulename eq 'CATALOGUING' && $actionname eq 'MODIFY' ) {
$infos = "item " . $infos;
$infos = "item " . Dumper( $infos->unblessed );
} else {
$infos = Dumper( $infos->unblessed );
}
}