From 4b4580c17ad7a8433a001b590e3464ece23afe4f Mon Sep 17 00:00:00 2001 From: Sophie Meynieux Date: Fri, 23 Mar 2012 15:02:22 +0100 Subject: [PATCH] Bug 7815 : Order pickup libraries list by name rather than by code --- reserve/request.pl | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-) diff --git a/reserve/request.pl b/reserve/request.pl index b96447f..015fda4 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.5.4