summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_auto_install.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-09-03 16:04:49 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-09-03 16:04:49 +0000
commit0b690781203ed2113d85e5a53c4d260847c25387 (patch)
tree73eefce0c3865730d9bd5f31d52928ce5dadf25e /perl-install/install_steps_auto_install.pm
parent2602c854c769e2b70bdf18579f6348b0496bc09f (diff)
downloaddrakx-0b690781203ed2113d85e5a53c4d260847c25387.tar
drakx-0b690781203ed2113d85e5a53c4d260847c25387.tar.gz
drakx-0b690781203ed2113d85e5a53c4d260847c25387.tar.bz2
drakx-0b690781203ed2113d85e5a53c4d260847c25387.tar.xz
drakx-0b690781203ed2113d85e5a53c4d260847c25387.zip
- 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
Diffstat (limited to 'perl-install/install_steps_auto_install.pm')
-rw-r--r--perl-install/install_steps_auto_install.pm11
1 files changed, 5 insertions, 6 deletions
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 }