Bug 2553: Fixes location drop-down alphabetization in Serials Statistics wizard form.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>

diff --git a/reports/serials_stats.pl b/reports/serials_stats.pl
index a42fc70..ff98f34 100755 (executable)
--- 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;