From 448b548ea2b340751b9e4f53ad2c8c0f3c1d1fe9 Mon Sep 17 00:00:00 2001 From: miker Date: Wed, 16 Nov 2005 17:18:56 +0000 Subject: [PATCH] fixed debuging code ... git-svn-id: svn://svn.open-ils.org/ILS/trunk@2043 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../perlmods/OpenILS/Application/Storage/CDBI.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm index fed6a6a04c..657af02de1 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm @@ -310,15 +310,20 @@ sub debug_object { $string .= "Object type:\t".ref($obj)."\n"; $string .= "Object string:\t$obj\n"; - if (ref($obj) && ref($obj) =~ /Fieldmapper/o ) { + if (ref($obj) && UNIVERSAL::isa($obj => 'Fieldmapper')) { $string .= "Object fields:\n"; for my $col ($obj->real_fields()) { - $string .= "\t$col\t=>".$obj->$col."\n"; + $string .= "\t$col\t=> ".$obj->$col."\n"; } - } elsif (ref($obj)) { + } elsif (ref($obj) && UNIVERSAL::isa($obj => 'Class::DBI')) { $string .= "Object cols:\n"; for my $col ($obj->columns('All')) { - $string .= "\t$col\t=>".$obj->$col."\n"; + $string .= "\t$col\t=> ".$obj->$col."\n"; + } + } elsif (ref($obj) && UNIVERSAL::isa($obj => 'HASH')) { + $string .= "Object keys and vals:\n"; + for my $col (keys %$obj) { + $string .= "\t$col\t=> $$obj{$col}\n"; } } -- 2.43.2