From: Jason Boyer <jboyer@library.in.gov>
Date: Fri, 27 Mar 2015 12:32:41 +0000 (-0400)
Subject: LP 1437292: Order Bucket Names Alphabetically
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=e4a3fd1a25734f35d05894a834e6ef01e26e2165;p=evergreen%2Fpines.git

LP 1437292: Order Bucket Names Alphabetically

Prefer alpha ordering to database ordering for bucket names.

Signed-off-by: Jason Boyer <jboyer@library.in.gov>
Signed-off-by: Terran McCanna <tmccanna@georgialibraries.org>
Signed-off-by: Jason Stephenson <jstephenson@mvlc.org>
---

diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor/Container.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor/Container.pm
index 9952024f4a..dada935dbb 100644
--- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor/Container.pm
+++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Actor/Container.pm
@@ -61,7 +61,7 @@ sub bucket_retrieve_all {
     my %buckets;
     for my $type (keys %ctypes) {
         my $meth = "search_" . $ctypes{$type};
-        $buckets{$type} = $e->$meth({owner => $user_id});
+        $buckets{$type} = _sort_buckets($e->$meth({owner => $user_id}));
     }
 
     return \%buckets;