From 5385058a023466c5e9dc4bc032b560b494328073 Mon Sep 17 00:00:00 2001
From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 2 Nov 2010 03:00:56 +0000
Subject: [PATCH] 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
---
Open-ILS/src/perlmods/OpenILS/Application/Acq/Provider.pm | 7 ++++++-
1 file changed, 6 insertions(+), 1 deletion(-)
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;
}
--
2.11.0