[open-ils-commits] r16118 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-04-03 16:46:54 -0400 (Sat, 03 Apr 2010)
New Revision: 16118

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
Log:
de-dupe li ids in picklist li fetcher.  if an LI has multiple attrs for the sort field, the join collects 1 row per attr, resulting in duplicate attrs

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2010-04-03 20:46:53 UTC (rev 16117)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Picklist.pm	2010-04-03 20:46:54 UTC (rev 16118)
@@ -340,7 +340,9 @@
     my $entries = $e->json_query($PL_ENTRY_JSON_QUERY);
 
     my @ids;
-    push(@ids, $_->{id}) for @$entries;
+    for my $entry (@$entries) {
+        push(@ids, $entry->{id}) unless grep { $_ eq $entry->{id} } @ids;
+    }
 
     for my $id (@ids) {
         if($$options{idlist}) {