sorting authority list
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
parent
2c8b6b617b
commit
fd06c22192
1 changed files with 1 additions and 1 deletions
|
@ -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,
|
||||||
|
|
Loading…
Reference in a new issue