From 0b690781203ed2113d85e5a53c4d260847c25387 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 3 Sep 2003 16:04:49 +0000
Subject: - move call to ->charsetChanged from install_steps_interactive to
 install_steps   so that we can use it in
 install_steps_auto_install_non_interactive - don't overload ->selectLanguage
 to call lang::load_console_font(), overload ->charsetChanged instead

---
 perl-install/install_steps_auto_install.pm | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

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

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index a4a92f1e3..e83b34267 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -94,6 +94,11 @@ sub wait_message {
     my ($_o, $_title, $_message) = @_;
 }
 
+sub charsetChanged {
+    my ($o) = @_;
+    lang::load_console_font($o->{locale});
+}
+
 sub errorInStep {
     my ($_o, $_err) = @_;
     print "error :(\n"; 
@@ -107,12 +112,6 @@ sub errorInStep {
 #-######################################################################################
 #- Steps Functions
 #-######################################################################################
-sub selectLanguage {
-    my ($o) = @_;
-    $o->install_steps::selectLanguage;
-    lang::load_console_font($o->{locale});
-}
-
 sub installPackages {
     my ($o, $packages) = @_;
     catch_cdie { $o->install_steps::installPackages($packages) } sub { print formatError($@), "\n"; 1 }
-- 
cgit v1.2.1