From bb040af3a3209c83194729937b62518cb0d38f20 Mon Sep 17 00:00:00 2001
From: Garry Collum <gcollum@gmail.com>
Date: Fri, 17 Jul 2009 19:54:10 -0400
Subject: [PATCH] Bug 2553: Fixes location drop-down alphabetization in Serials
 Statistics wizard form.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
Signed-off-by: Henri-Damien LAURENT <henridamien.laurent@biblibre.com>
---
 reports/serials_stats.pl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl
index a42fc707bd..ff98f34a14 100755
--- a/reports/serials_stats.pl
+++ b/reports/serials_stats.pl
@@ -145,7 +145,7 @@ if($do_it){
     ## We generate branchlist
     my $branches=GetBranches();
 	my @branchloop;
-	foreach (keys %$branches) {
+	foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) {
 		my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one
 		my %row = (branchcode => $_,
 			selected => ($thisbranch eq $_ ? 1 : 0),
@@ -170,4 +170,4 @@ if($do_it){
         branches     => \@branchloop);
 }
 
-output_html_with_http_headers $input, $cookie, $template->output;
\ No newline at end of file
+output_html_with_http_headers $input, $cookie, $template->output;
-- 
2.39.5