From f51b306f56dbc5a87ec9c2356d207054c4ef5a26 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 6 Mar 2002 11:58:44 +0000
Subject: (g_auto_install): use "interactiveSteps" field instead of pushing in
 @install_steps_auto_install::graphical_steps

---
 perl-install/install_any.pm | 10 +++-------
 1 file 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;
 }
-- 
cgit v1.2.1