From 50ddd8d060eee70fb1a70831b0d88f5b909b467a Mon Sep 17 00:00:00 2001
From: Garry Collum <gcollum@gmail.com>
Date: Fri, 17 Jul 2009 19:31:55 -0400
Subject: [PATCH] Bug 2553: Fixes drop-down alphabetization for Circulation
 Statistics report form.

Fixes alphabetization for the item type, library and collection drop-down lists in the Checkout Statistics wizard form.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
---
 reports/issues_stats.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/reports/issues_stats.pl b/reports/issues_stats.pl
index 63ea68ea50..11ecc77ac3 100755
--- a/reports/issues_stats.pl
+++ b/reports/issues_stats.pl
@@ -133,13 +133,13 @@ my %select;
 
 # create itemtype arrayref for <select>.
 my @itemtypeloop;
-for my $itype ( keys(%$itemtypes)) {
+for my $itype ( sort {$itemtypes->{$a}->{description} cmp $itemtypes->{$b}->{description}} keys(%$itemtypes)) {
 	push @itemtypeloop, { code => $itype , description => $itemtypes->{$itype}->{description} } ;
 }
 
 my $branches=GetBranches();
 my @branchloop;
-foreach (keys %$branches) {
+foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) {
 	my $thisbranch = ''; # FIXME 
 	my %row = (
 		branchcode => $_,
@@ -157,7 +157,7 @@ foreach (sort keys %$locations) {
 }
     
 my @ccodes;
-foreach (keys %$ccodes) {
+foreach (sort {$ccodes->{$a} cmp $ccodes->{$b}} keys %$ccodes) {
 	push @ccodes, { code => $_, description => $ccodes->{$_} };
 }
 
-- 
2.39.2