Bug 8227 Fix deprecated construct compile time warning in Serials

[koha.git] / reserve / request.pl

diff --git a/reserve/request.pl b/reserve/request.pl
index e7191a9..c34a614 100755 (executable)
--- 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};
 }