[Koha-cvs] CVS: koha/authorities authorities-home.pl,1.7,1.8
Paul POULAIN
tipaul at users.sourceforge.net
Mon Dec 13 17:39:25 CET 2004
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,
More information about the Koha-cvs
mailing list