[open-ils-commits] r15657 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-03-02 14:16:32 -0500 (Tue, 02 Mar 2010)
New Revision: 15657

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
Log:
Not so fast, tex. The client sorted things, all right, but was completely messed up.

Pursue wlayton's r14015 instead for client-side sorting.


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2010-03-02 18:47:30 UTC (rev 15656)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm	2010-03-02 19:16:32 UTC (rev 15657)
@@ -149,15 +149,7 @@
     };
 
     %services = %$hash; # cache these internally so we can actually use the db-configured sources
-
-    # 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;
+    return $hash;
 }