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

[svn at svn.open-ils.org]

Author: miker
Date: 2008-04-14 09:32:00 -0400 (Mon, 14 Apr 2008)
New Revision: 9338

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
Log:
logging and simpler method call

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm	2008-04-14 13:30:49 UTC (rev 9337)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm	2008-04-14 13:32:00 UTC (rev 9338)
@@ -61,16 +61,19 @@
     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