From 30fbc40061287caa48216a29a48af905d858f151 Mon Sep 17 00:00:00 2001 From: Paul POULAIN Date: Sun, 30 Sep 2007 22:22:34 +0200 Subject: [PATCH] BUGFIX (minor) authority list ordering was bugguy Signed-off-by: Chris Cormack --- authorities/authorities-home.pl | 2 +- opac/opac-authorities-home.pl | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) 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; -- 2.39.5