[open-ils-commits] r7579 - branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-07-25 10:13:33 -0400 (Wed, 25 Jul 2007)
New Revision: 7579

Modified:
   branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
Log:
backporting callnumber sort: svn merge -r7577:7578 svn://svn.open-ils.org/ILS/trunk

Modified: branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm
===================================================================
--- branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-07-25 14:10:31 UTC (rev 7578)
+++ branches/rel_1_2/Open-ILS/src/perlmods/OpenILS/Application/Search/Biblio.pm	2007-07-25 14:13:33 UTC (rev 7579)
@@ -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 ];
 }