From fd06c22192457415b124361641cf4db9322949f1 Mon Sep 17 00:00:00 2001
From: paul <paul.poulain@biblibre.com>
Date: Fri, 20 Jun 2008 12:34:46 +0200
Subject: [PATCH] sorting authority list

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 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