[open-ils-commits] r9364 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: miker
Date: 2008-04-15 13:09:40 -0400 (Tue, 15 Apr 2008)
New Revision: 9364

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
Log:
fixing fielder with no fields

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm	2008-04-15 16:42:11 UTC (rev 9363)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm	2008-04-15 17:09:40 UTC (rev 9364)
@@ -61,8 +61,10 @@
     my $query = $obj->{query};
     my $fields = $obj->{fields};
 
+    my $obj_class = $self->{class_hint};
+
     if (!$fields) {
-        $fields = [ $obj->real_fields ];
+        $fields = [ "Fieldmapper::$obj_class"->real_fields ];
     }
 
     $log->debug( 'Field list: '. OpenSRF::Utils::JSON->perl2JSON( $fields ) );
@@ -73,7 +75,6 @@
 
     $fields = [$fields] if (!ref($fields));
 
-    my $obj_class = $self->{class_hint};
 
     $log->debug( 'Query Class: '. $obj_class );