From: Paul POULAIN <paul@koha-fr.org>
Date: Sun, 30 Sep 2007 20:22:34 +0000 (+0200)
Subject: BUGFIX (minor)
X-Git-Tag: v3.00.00-alpha~1640
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=30fbc40061287caa48216a29a48af905d858f151;p=koha.git

BUGFIX (minor)

authority list ordering was bugguy

Signed-off-by: Chris Cormack <crc@liblime.com>
---

diff --git a/authorities/authorities-home.pl b/authorities/authorities-home.pl
index bd89d0d249..cccab218d9 100755
--- a/authorities/authorities-home.pl
+++ b/authorities/authorities-home.pl
@@ -40,7 +40,7 @@ my ( $template, $loggedinuser, $cookie );
 
 my $authtypes = getauthtypes;
 my @authtypesloop;
-foreach my $thisauthtype ( sort { $authtypes->{$a} <=> $authtypes->{$b} }
+foreach my $thisauthtype ( sort { $authtypes->{$a}{'authtypetext'} cmp $authtypes->{$b}{'authtypetext'} }
     keys %$authtypes )
 {
     my $selected = 1 if $thisauthtype eq $authtypecode;
diff --git a/opac/opac-authorities-home.pl b/opac/opac-authorities-home.pl
index 158bfbbe76..9076bffe72 100755
--- a/opac/opac-authorities-home.pl
+++ b/opac/opac-authorities-home.pl
@@ -42,7 +42,7 @@ my $resultsperpage;
 
 my $authtypes = getauthtypes;
 my @authtypesloop;
-foreach my $thisauthtype ( sort { $authtypes->{$a} <=> $authtypes->{$b} }
+foreach my $thisauthtype ( sort { $authtypes->{$a}{'authtypetext'} cmp $authtypes->{$b}{'authtypetext'} }
     keys %$authtypes )
 {
     my $selected = 1 if $thisauthtype eq $authtypecode;