From 317479ff433b7098a10a02a37a70353e57e645f9 Mon Sep 17 00:00:00 2001
From: Sophie Meynieux <sophie.meynieux@biblibre.com>
Date: Fri, 23 Mar 2012 15:02:22 +0100
Subject: [PATCH] Bug 7815 : Order pickup libraries list by name rather than by
 code

Signed-off-by: Marijana Glavica <mglavica@ffzg.hr>
Signed-off-by: Paul Poulain <paul.poulain@biblibre.com>
Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
---
 reserve/request.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/reserve/request.pl b/reserve/request.pl
index e7191a9e0d..c34a614820 100755
--- a/reserve/request.pl
+++ b/reserve/request.pl
@@ -69,7 +69,7 @@ my $default = C4::Context->userenv->{branch};
 my @values;
 my %label_of;
 
-foreach my $branchcode (sort keys %{$branches} ) {
+foreach my $branchcode ( sort { $branches->{$a}->{branchname} cmp $branches->{$b}->{branchname} } keys %$branches ) {
     push @values, $branchcode;
     $label_of{$branchcode} = $branches->{$branchcode}->{branchname};
 }
-- 
2.39.5