[open-ils-commits] r13845 - trunk/Open-ILS/src/perlmods/OpenILS/Application (miker)

[svn at svn.open-ils.org]

Author: miker
Date: 2009-08-17 10:30:01 -0400 (Mon, 17 Aug 2009)
New Revision: 13845

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
Log:
add "distinct" support to fielder

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm	2009-08-16 15:49:33 UTC (rev 13844)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm	2009-08-17 14:30:01 UTC (rev 13845)
@@ -60,6 +60,7 @@
 
     my $query = $obj->{query};
     my $fields = $obj->{fields};
+    my $distinct = $obj->{distinct} ? 1 : 0;
 
     my $obj_class = $self->{class_hint};
     my $fm_class = $self->{class_name};
@@ -82,7 +83,8 @@
     my $res = new_editor()->json_query({
         select  => { $obj_class => $fields },
         from    => $obj_class,
-        where   => $query
+        where   => $query,
+        distinct=> $distinct
     });
 
     for my $value (@$res) {