From 712dc1f9f664396d70e60734f4895f7783088952 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 13 Dec 2004 16:39:14 +0000 Subject: [PATCH] authoritiy list shown in authtypetext order (so authtypetext with a space appear first, hint used everywhere else for lists) --- authorities/authorities-home.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl index 8262315374..3440c93ff2 100755 --- a/authorities/authorities-home.pl +++ b/authorities/authorities-home.pl @@ -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, -- 2.39.5