From 78f982d103d29b3307513286d9811d88f6b9a568 Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Fri, 23 Mar 2012 15:02:22 +0100 Subject: [PATCH] [SIGNED-OFF] Bug 7815 : Order pickup libraries list by name rather than by code Signed-off-by: Marijana Glavica --- reserve/request.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/reserve/request.pl b/reserve/request.pl index d9e5904..b05e5f0 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}; } -- 1.7.2.5