fixed debuging code ...
authormiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 16 Nov 2005 17:18:56 +0000 (17:18 +0000)
committermiker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 16 Nov 2005 17:18:56 +0000 (17:18 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@2043 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Storage/CDBI.pm

index fed6a6a..657af02 100644 (file)
@@ -310,15 +310,20 @@ sub debug_object {
        $string .= "Object type:\t".ref($obj)."\n";
        $string .= "Object string:\t$obj\n";
 
        $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 .= "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 .= "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";
                }
        }
 
                }
        }