From 3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95 Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 19 Feb 2003 12:05:46 +0000 Subject: have "all languages" and "utf8" before the list of languages, per request of pablo --- perl-install/any.pm | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) (limited to 'perl-install') diff --git a/perl-install/any.pm b/perl-install/any.pm index a59eb925c..db555585e 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -642,15 +642,15 @@ when your installation is complete and you restart your system.")), if_($using_images, image2f => sub { $name2l{$_[0]} =~ /^[a-z]/ ? ('', "langs/lang-$name2l{$_[0]}") : $_[0] }), format => sub { $_[0] =~ /(.*\|)(.*)/; $1.lang::l2name($2) }, list => \@langs, sort => 0 }, - if_($langs_, (map { - { val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} }, - text => $_->[1], advanced => 1, - image => "langs/lang-$_->[0]", - } - } sort { $a->[1] cmp $b->[1] } map { [ $_, $sort_func->($_) ] } lang::list_langs()), - { val => \$langs->{all}, type => 'bool', text => N("All"), advanced => 1 }, - if_($::isInstall, - { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 })) + if_($langs_, if_($::isInstall, + { val => \$in->{locale}{utf8}, type => 'bool', text => N("Use Unicode by default"), advanced => 1 }), + { val => \$langs->{all}, type => 'bool', text => N("All languages"), advanced => 1 }, + map { + { val => \$langs->{$_->[0]}, type => 'bool', disabled => sub { $langs->{all} }, + text => $_->[1], advanced => 1, + image => "langs/lang-$_->[0]", + } + } sort { $a->[1] cmp $b->[1] } map { [ $_, $sort_func->($_) ] } lang::list_langs()) ]) or return; $langs->{$listval2val->($lang)} = 1; $langs->{$_} or delete $langs->{$_} foreach keys %$langs; #- clean hash -- cgit v1.2.1