move writing to config files from install2::selectKeyboard to install_steps

2 files changed, 9 insertions, 9 deletions

diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index 741ff15b8..c168b7299 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -172,15 +172,6 @@ sub selectKeyboard {
     return if !$::expert && !$clicked;
 
     $o->selectKeyboard($clicked);
-
-    #- if we go back to the selectKeyboard, you must rewrite
-    addToBeDone {
-	lang::write_langs($o->{prefix}, $o->{langs});
-    } 'formatPartitions' unless $::g_auto_install;
-    addToBeDone {
-	lang::write($o->{prefix}, $o->{lang});
-	keyboard::write($o->{prefix}, $o->{keyboard}, lang::lang2charset($o->{lang}));
-    } 'installPackages' unless $::g_auto_install;
 }
 
 #------------------------------------------------------------------------------
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index c2dd27108..6d1f1093e 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -101,6 +101,15 @@ sub selectLanguage {
 sub selectKeyboard {
     my ($o) = @_;
     keyboard::setup($o->{keyboard});
+
+    #- if we go back to the selectKeyboard, you must rewrite
+    addToBeDone {
+	lang::write_langs($o->{prefix}, $o->{langs});
+    } 'formatPartitions' unless $::g_auto_install;
+    addToBeDone {
+	lang::write($o->{prefix}, $o->{lang});
+	keyboard::write($o->{prefix}, $o->{keyboard}, lang::lang2charset($o->{lang}));
+    } 'installPackages' unless $::g_auto_install;
 }
 #------------------------------------------------------------------------------
 sub selectPath {}