Bug 2553: Fixes the alphabetization of the drop-down lists for the Most-Circulated items report.

This patch alphabetizes the descriptions that appear in the  Library, Item type, and patron category drop-down lists of the Most-Circulated Items report form.

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Garry Collum 2009-07-16 16:50:10 -04:00 committed by Galen Charlton
parent a4068a8176
commit 88c0bbcef8
1 changed files with 5 additions and 20 deletions

View File

@ -129,26 +129,13 @@ if ($do_it) {
-multiple => 0 );
my $CGIsepChoice=GetDelimiterChoices;
#branch
my $branches = GetBranches;
my @branchloop;
foreach my $thisbranch (keys %$branches) {
# my $selected = 1 if $thisbranch eq $branch;
my %row =(value => $thisbranch,
# selected => $selected,
branchname => $branches->{$thisbranch}->{'branchname'},
);
push @branchloop, \%row;
}
#doctype
my $itemtypes = GetItemTypes;
my @itemtypeloop;
foreach my $thisitemtype (keys %$itemtypes) {
# my $selected = 1 if $thisbranch eq $branch;
foreach my $thisitemtype ( sort {$itemtypes->{$a}->{'description'} cmp $itemtypes->{$b}->{'description'}} keys %$itemtypes) {
my %row =(value => $thisitemtype,
# selected => $selected,
description => $itemtypes->{$thisitemtype}->{'description'},
description => $itemtypes->{$thisitemtype}->{'description'},
);
push @itemtypeloop, \%row;
}
@ -156,11 +143,9 @@ if ($do_it) {
#borcat
my ($codes,$labels) = GetborCatFromCatType(undef,undef);
my @borcatloop;
foreach my $thisborcat (sort keys %$labels) {
# my $selected = 1 if $thisbranch eq $branch;
foreach my $thisborcat (sort {$labels->{$a} cmp $labels->{$b}} keys %$labels) {
my %row =(value => $thisborcat,
# selected => $selected,
description => $labels->{$thisborcat},
description => $labels->{$thisborcat},
);
push @borcatloop, \%row;
}
@ -170,7 +155,7 @@ if ($do_it) {
$template->param(
CGIextChoice => $CGIextChoice,
CGIsepChoice => $CGIsepChoice,
branchloop =>\@branchloop,
branchloop => GetBranchesLoop(C4::Context->userenv->{'branch'}),
itemtypeloop =>\@itemtypeloop,
borcatloop =>\@borcatloop,
);