add "distinct" support to fielder

git-svn-id: svn://svn.open-ils.org/ILS/trunk@13845 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
index c541345..4703add 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Fielder.pm
@@ -60,6 +60,7 @@ sub fielder_fetch {
 
     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 @@ sub fielder_fetch {
     my $res = new_editor()->json_query({
         select  => { $obj_class => $fields },
         from    => $obj_class,
-        where   => $query
+        where   => $query,
+        distinct=> $distinct
     });
 
     for my $value (@$res) {