no_comment

1 files changed, 11 insertions, 0 deletions

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};