From 199396606225248991225fa3039fac49d524819e Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Mon, 14 Apr 2008 13:32:00 +0000
Subject: [PATCH] logging and simpler method call

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
index 45bb5389ca..ed2050622f 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
@@ -61,16 +61,19 @@ sub fielder_fetch {
     my $query = $obj->{query};
     my $fields = $obj->{fields};
 
+    $log->debug( 'Field list: '. OpenSRF::Utils::JSON->perl2JSON( $fields ) );
+    $log->debug( 'Query: '. OpenSRF::Utils::JSON->perl2JSON( $query ) );
+
     return undef unless $fields;
     return undef unless $query;
 
     $fields = [$fields] if (!ref($fields));
 
-    my $e = new_editor();
-
     my $obj_class = $self->{class_hint};
 
-    my $req = $e-json_query({
+    $log->debug( 'Query Class: '. $obj_class );
+
+    my $req = new_editor()->json_query({
         select  => { $obj_class => $fields },
         from    => $obj_class,
         where   => $query
-- 
2.43.2