summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-02-19 12:05:46 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-02-19 12:05:46 +0000
commit3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95 (patch)
tree04fd17452bf4f4d1cfaf219eb5b3ca28f2a85103 /perl-install
parent50f721050a1f1b61bb34d69c71e760084f326135 (diff)
downloaddrakx-backup-do-not-use-3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95.tar
drakx-backup-do-not-use-3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95.tar.gz
drakx-backup-do-not-use-3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95.tar.bz2
drakx-backup-do-not-use-3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95.tar.xz
drakx-backup-do-not-use-3d76a67e8d38f8b8bcbdcfbd06ee2b3e90442d95.zip
have "all languages" and "utf8" before the list of languages, per request of pablo
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/any.pm18
1 files changed, 9 insertions, 9 deletions
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