From fd06c22192457415b124361641cf4db9322949f1 Mon Sep 17 00:00:00 2001 From: paul Date: Fri, 20 Jun 2008 12:34:46 +0200 Subject: [PATCH] sorting authority list Signed-off-by: Joshua Ferraro --- authorities/detail.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/authorities/detail.pl b/authorities/detail.pl index 425b15551c..5a2456b6ad 100755 --- a/authorities/detail.pl +++ b/authorities/detail.pl @@ -476,7 +476,7 @@ my $tag; my $authtypes = getauthtypes; 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 %row =(value => $thisauthtype, selected => $selected, -- 2.39.5