diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-11 16:27:12 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-11 16:27:12 +0000 |
| commit | 3a6829ded0f6b8d7ebdff8aec615b134e19b8943 (patch) | |
| tree | 0b3f4d2c9bc9041866eef99c69175e062c5d02c4 /perl-install/install_steps_interactive.pm | |
| parent | 7f97982312bb72cfd186e3d9d9bf0bddffff99a3 (diff) | |
| download | drakx-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.pm | 3 |
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); |