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

[svn at svn.open-ils.org]

Author: erickson
Date: 2010-11-01 23:00:56 -0400 (Mon, 01 Nov 2010)
New Revision: 18571

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm
Log:
ML provider retrieval enhancements

* avoid grabbing inactive providers
* order providers by code

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm	2010-11-02 02:56:02 UTC (rev 18570)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm	2010-11-02 03:00:56 UTC (rev 18571)
@@ -93,7 +93,12 @@
         $U->user_has_work_perm_at($e, $limit_perm, {descendants =>1});
 
     return [] unless @$org_ids;
-    $conn->respond($_) for @{$e->search_acq_provider({owner => $org_ids})};
+    $conn->respond($_) for @{
+        $e->search_acq_provider([
+            {owner => $org_ids, active => 't'},
+            {order_by => {acqpro => 'code'}}
+        ])
+    };
 
     return undef;
 }