LP 1437292: Order Bucket Names Alphabetically

Prefer alpha ordering to database ordering for bucket names.

Signed-off-by: Jason Boyer <jboyer@library.in.gov>

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 9952024..dada935 100644 (file)
--- 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;