(g_auto_install): use "interactiveSteps" field instead of pushing in @install_steps_auto_install::graphical_steps

1 files changed, 3 insertions, 7 deletions

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 5fc19c3d5..fe6f2033e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -655,7 +655,8 @@ sub g_auto_install {
     }
 
     local $o->{partitioning}{auto_allocate} = !$replay;
-    local $o->{autoExitInstall} = !$replay;
+    $o->{autoExitInstall} = !$replay;
+    $o->{interactiveSteps} = [ 'doPartitionDisks', 'formatPartitions'] if $replay;
 
     #- deep copy because we're modifying it below
     $o->{users} = [ @{$o->{users} || []} ];
@@ -673,12 +674,7 @@ sub g_auto_install {
 # You should check the syntax of this file before using it in an auto-install.
 # You can do this with 'perl -cw auto_inst.cfg.pl' or by executing this file
 # (note the '#!/usr/bin/perl -cw' on the first line).
-", 
-	 Data::Dumper->Dump([$o], ['$o']), if_($replay, 
-qq(\npackage install_steps_auto_install;), q(
-$graphical = 1;
-push @graphical_steps, 'doPartitionDisks', 'formatPartitions';
-)), "\0");
+", Data::Dumper->Dump([$o], ['$o']), "\0");
     $str =~ s/ {8}/\t/g; #- replace all 8 space char by only one tabulation, this reduces file size so much :-)
     $str;
 }