diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-02-09 11:38:02 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-02-09 11:38:02 +0000 |
| commit | 4ce69234e573c58002f3d1a9f361489410e883b2 (patch) | |
| tree | e9f590e2fd57d708f76c3249a442864a2b50a365 /perl-install/install_steps_interactive.pm | |
| parent | 06f02f9536b2a9fb1283dd33c441b5e66da23551 (diff) | |
| download | drakx-4ce69234e573c58002f3d1a9f361489410e883b2.tar drakx-4ce69234e573c58002f3d1a9f361489410e883b2.tar.gz drakx-4ce69234e573c58002f3d1a9f361489410e883b2.tar.bz2 drakx-4ce69234e573c58002f3d1a9f361489410e883b2.tar.xz drakx-4ce69234e573c58002f3d1a9f361489410e883b2.zip | |
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index c30e5d74b..ddafab251 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -71,6 +71,14 @@ sub selectKeyboard($) { keyboard::keyboard2text($o->{keyboard}))); delete $o->{keyboard_unsafe}; install_steps::selectKeyboard($o); + + + if ($::expert) { + my $langs = $o->ask_many_from_list('', + _("You can choose other languages that will be available after install"), + [ lang::list() ]) or goto &selectLanguage if $::expert; + lang::set_langs($o->{langs} = grep_index { $langs->[$::i] } lang::list()); + } } #------------------------------------------------------------------------------ sub selectPath($) { |