[Koha-cvs] CVS: koha/authorities authorities-home.pl,1.7,1.8

[Paul POULAIN]

Update of /cvsroot/koha/koha/authorities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22375/authorities

Modified Files:
        authorities-home.pl 
Log Message:
authoritiy list shown in authtypetext order (so authtypetext with a space 
appear first, hint used everywhere else for lists)

Index: authorities-home.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/authorities-home.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** authorities-home.pl 18 Aug 2004 16:05:42 -0000      1.7
--- authorities-home.pl 13 Dec 2004 16:39:14 -0000      1.8
***************
*** 47,51 ****
  my $authtypes = getauthtypes;
  my @authtypesloop;
! foreach my $thisauthtype (keys %$authtypes) {
        my $selected = 1 if $thisauthtype eq $authtypecode;
        my %row =(value => $thisauthtype,
--- 47,51 ----
  my $authtypes = getauthtypes;
  my @authtypesloop;
! foreach my $thisauthtype (sort { $authtypes->{$a} <=> $authtypes->{$b} } keys 
%$authtypes) {
        my $selected = 1 if $thisauthtype eq $authtypecode;
        my %row =(value => $thisauthtype,