From 29af9e07938442a8ca632bf3e848e75d7032d5f3 Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 15 Apr 2008 17:09:40 +0000
Subject: [PATCH] fixing fielder with no fields

git-svn-id: svn://svn.open-ils.org/ILS/trunk@9364 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
index 3ca8ea6cd2..25d1343c06 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
@@ -61,8 +61,10 @@ sub fielder_fetch {
     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 @@ sub fielder_fetch {
 
     $fields = [$fields] if (!ref($fields));
 
-    my $obj_class = $self->{class_hint};
 
     $log->debug( 'Query Class: '. $obj_class );
 
-- 
2.43.2