From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 2 Nov 2010 03:00:56 +0000 (+0000)
Subject: ML provider retrieval enhancements
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=5385058a023466c5e9dc4bc032b560b494328073;p=evergreen%2Fmasslnc.git

ML provider retrieval enhancements

* avoid grabbing inactive providers
* order providers by code

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm
index c514d62f25..c83dc3a54a 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm
@@ -93,7 +93,12 @@ sub retrieve_org_providers {
         $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;
 }