fixed debuging code ...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@2043 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm b/Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm
index fed6a6a..657af02 100644 (file)
--- 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";
                }
        }