[open-ils-commits] r7578 - trunk/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-07-25 10:10:31 -0400 (Wed, 25 Jul 2007)
New Revision: 7578

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
sorting by callnumber label before returning results

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-07-24 15:03:09 UTC (rev 7577)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-07-25 14:10:31 UTC (rev 7578)
@@ -904,8 +904,10 @@
 	my( $self, $client, $rid, $org, $depth ) = @_;
 	$org ||= 1;
 	$depth ||= 0;
-	return $U->storagereq(
+    my $data = $U->storagereq(
 		'open-ils.storage.biblio.record_entry.status_copy_count.atomic', $rid, $org, $depth );
+
+    return [ sort { $a->[1] cmp $b->[1] } @$data ];
 }