sorting authority list

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
paul 2008-06-20 12:34:46 +02:00 committed by Joshua Ferraro
parent 2c8b6b617b
commit fd06c22192

View file

@ -476,7 +476,7 @@ my $tag;
my $authtypes = getauthtypes; my $authtypes = getauthtypes;
my @authtypesloop; my @authtypesloop;
foreach my $thisauthtype (keys %$authtypes) { foreach my $thisauthtype (sort { $authtypes->{$b} cmp $authtypes->{$a} } keys %$authtypes) {
my $selected = 1 if $thisauthtype eq $authtypecode; my $selected = 1 if $thisauthtype eq $authtypecode;
my %row =(value => $thisauthtype, my %row =(value => $thisauthtype,
selected => $selected, selected => $selected,