authoritiy list shown in authtypetext order (so authtypetext with a space appear first, hint used everywhere else for lists)

This commit is contained in:
tipaul 2004-12-13 16:39:14 +00:00
parent e353fb78ae
commit 712dc1f9f6

View file

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