summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-11 16:27:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-11 16:27:12 +0000
commit3a6829ded0f6b8d7ebdff8aec615b134e19b8943 (patch)
tree0b3f4d2c9bc9041866eef99c69175e062c5d02c4 /perl-install/install_steps_interactive.pm
parent7f97982312bb72cfd186e3d9d9bf0bddffff99a3 (diff)
downloaddrakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar.gz
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar.bz2
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.tar.xz
drakx-3a6829ded0f6b8d7ebdff8aec615b134e19b8943.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index d88fc3d97..653e9ee20 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -86,9 +86,10 @@ sub selectKeyboard($) {
if ($::expert && ref($o) !~ /newt/) { #- newt is buggy with big windows :-(
my %langs; $langs{$_} = 1 foreach @{$o->{langs}};
+ my @l = sort { $a->[0] cmp $b->[0] } map { [ lang::lang2text($_) || $_, \$langs{$_} ] } lang::list();
$o->ask_many_from_list_ref('',
_("You can choose other languages that will be available after install"),
- [ (map { lang::lang2text($_) } lang::list()), 'All' ], [ map { \$langs{$_} } lang::list(), 'all' ] ) or goto &selectKeyboard;
+ [ map { $_->[0] } @l ], [ map { $_->[1] } @l ], [ 'All' ], [ \$langs{all} ]) or goto &selectKeyboard;
$o->{langs} = $langs{all} ? [ 'all' ] : [ grep { $langs{$_} } keys %langs ];
}
install_steps::selectKeyboard($o);