From b9cbb41ade40d03aa9aa970e5dadb76a816f38e7 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 4 Sep 2000 10:44:48 +0000
Subject: no_comment

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

(limited to 'perl-install')

diff --git a/perl-install/install_steps_auto_install.pm b/perl-install/install_steps_auto_install.pm
index 7b20db611..4b585f7e6 100644
--- a/perl-install/install_steps_auto_install.pm
+++ b/perl-install/install_steps_auto_install.pm
@@ -3,6 +3,7 @@ package install_steps_auto_install;
 use diagnostics;
 use strict;
 use netconnect;
+use lang;
 use vars qw(@ISA);
 
 @ISA = qw(install_steps);
@@ -59,6 +60,16 @@ sub errorInStep {
     c::_exit(0);
 }
 
+
+#-######################################################################################
+#- Steps Functions
+#-######################################################################################
+sub selectLanguage {
+    my ($o) = @_;
+    $o->SUPER::selectLanguage;
+    lang::load_console_font($o->{lang});
+}
+
 sub exitInstall {
     my ($o, $alldone) = @_;
     return if $o->{autoExitInstall};
-- 
cgit v1.2.1