From 7ce14e0f9d8541e16f3e4f88ea6d9b77c3bd19c7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 4 Sep 2000 18:33:56 +0000
Subject: no_comment

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

(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 f8a1f58ad..7c72309a6 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -76,14 +76,14 @@ translated etc. that varies from language to language).") if $o->{lang} !~ /^en/
 #------------------------------------------------------------------------------
 sub selectKeyboard($) {
     my ($o, $clicked) = @_;
-    if (!$::beginner || $clicked) {
-	$o->{keyboard} = $o->ask_from_listf_(_("Keyboard"),
-					     _("Please, choose your keyboard layout."),
-					     \&keyboard::keyboard2text,
-					     [ keyboard::xmodmaps() ],
-					     $o->{keyboard});
-	delete $o->{keyboard_unsafe};
-    }
+
+    $o->{keyboard} = $o->ask_from_listf_(_("Keyboard"),
+					 _("Please, choose your keyboard layout."),
+					 \&keyboard::keyboard2text,
+					 [ keyboard::xmodmaps() ],
+					 $o->{keyboard});
+    delete $o->{keyboard_unsafe};
+
     if ($::expert && ref($o) !~ /newt/) { #- newt is buggy with big windows :-(
 	my %langs; $langs{$_} = 1 foreach @{$o->{langs}};
 	$o->ask_many_from_list_ref('', 
-- 
cgit v1.2.1