From 4ce69234e573c58002f3d1a9f361489410e883b2 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 9 Feb 2000 11:38:02 +0000
Subject: no_comment

---
 perl-install/install_steps_interactive.pm | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/install_steps_interactive.pm')

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($) {
-- 
cgit v1.2.1