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>
This commit is contained in:
Sophie Meynieux 2012-03-23 15:02:22 +01:00 committed by Paul Poulain
parent 7c9e80536b
commit 3b4d31abe9
1 changed files with 1 additions and 1 deletions

View File

@ -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};
}