From 057783b0810df535f2085ffb92c7de88e64aff34 Mon Sep 17 00:00:00 2001
From: dbs <dbs@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Tue, 2 Mar 2010 18:39:36 +0000
Subject: [PATCH] Sort Z39.50 sources as returned by fetch_service_defs() for a
 better UX

git-svn-id: svn://svn.open-ils.org/ILS/trunk@15655 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
index 27362a9c0..aeab20ec3 100755
--- a/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
@@ -149,7 +149,15 @@ sub fetch_service_defs {
     };
 
     %services = %$hash; # cache these internally so we can actually use the db-configured sources
-    return $hash;
+
+    # Return a sorted list for easier handling in the client
+    my @sorted_sources;
+    foreach my $zsource (sort keys %$hash) {
+        if ($hash->{$zsource}->{name}) {
+            push @sorted_sources, $hash->{$zsource};
+        }
+    }
+    return \@sorted_sources;
 }
 
 
-- 
2.11.0