From 2a0bbee296669686a3332e6595bc1021757249b0 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 24 Jun 2000 10:15:52 +0000
Subject: no_comment

---
 perl-install/install2.pm | 6 +++---
 perl-install/keyboard.pm | 8 +++++---
 perl-install/lang.pm     | 2 ++
 3 files changed, 10 insertions(+), 6 deletions(-)

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index b1ec9847c..d2fd9d458 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -236,7 +236,7 @@ sub selectLanguage {
 
     addToBeDone {
 	lang::write($o->{prefix});
-	keyboard::write($o->{prefix}, $o->{keyboard});
+	keyboard::write($o->{prefix}, lang::lang2charset($o->{lang}), $o->{keyboard});
     } 'doInstallStep' unless $::g_auto_install;
 }
 
@@ -270,7 +270,7 @@ sub selectKeyboard {
     #- if we go back to the selectKeyboard, you must rewrite
     addToBeDone {
 	lang::write($o->{prefix});
-	keyboard::write($o->{prefix}, $o->{keyboard});
+	keyboard::write($o->{prefix}, lang::lang2charset($o->{lang}), $o->{keyboard});
     } 'doInstallStep' unless $::g_auto_install;
 }
 
@@ -730,7 +730,7 @@ sub main {
 
     -e "$o->{prefix}/usr/bin/urpmi" or eval { commands::rm("-rf", "$o->{prefix}/var/lib/urpmi") };
 
-    #- have the really bleeding edge ddebug.log for this f*cking msec :-/
+    #- have the really bleeding edge ddebug.log
     eval { commands::cp('-f', "/tmp/ddebug.log", "$o->{prefix}/root") };
 
     #- ala pixel? :-) [fpons]
diff --git a/perl-install/keyboard.pm b/perl-install/keyboard.pm
index 894adf130..6ece6b7c0 100644
--- a/perl-install/keyboard.pm
+++ b/perl-install/keyboard.pm
@@ -268,10 +268,12 @@ sub setup($) {
     eval { run_program::run('xmodmap', $f) } unless $::testing || !$f;
 }
 
-sub write($$;$) {
-    my ($prefix, $keyboard, $isNotDelete) = @_;
+sub write($$$;$) {
+    my ($prefix, $keyboard, $charset, $isNotDelete) = @_;
 
-    setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => keyboard2kmap($keyboard), $isNotDelete ? () : (BACKSPACE => "Delete") });
+    setVarsInSh("$prefix/etc/sysconfig/keyboard", { KEYTABLE => keyboard2kmap($keyboard), 
+						    KBCHARSET => $charset,
+						    $isNotDelete ? () : (BACKSPACE => "Delete") });
     run_program::rooted($prefix, "dumpkeys > /etc/sysconfig/console/default.kmap") or log::l("dumpkeys failed");
 }
 
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index f37f8389e..f072cd92b 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -210,6 +210,8 @@ sub text2lang {
     die "unknown language $t";
 }
 
+sub lang2charset { $languages{$_[0]} }
+
 sub set {
     my ($lang) = @_;
 
-- 
cgit v1.2.1