From 81068b4c188a82c0ae486665617f385997e619cd Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 16 Sep 1999 17:30:46 +0000 Subject: no_comment --- perl-install/install2.pm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'perl-install/install2.pm') diff --git a/perl-install/install2.pm b/perl-install/install2.pm index 5d864a3f0..d668b4b4a 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -188,7 +188,7 @@ my @installSteps = ( addUser => [ __("Add a user"), 1, 1, "doInstallStep" ], createBootdisk => [ __("Create bootdisk"), 1, 0, "doInstallStep" ], setupBootloader => [ __("Install bootloader"), 1, 1, "doInstallStep" ], - configureX => [ __("Configure X"), 1, 0, "doInstallStep" ], + configureX => [ __("Configure X"), 1, 0, "formatPartitions" ], exitInstall => [ __("Exit install"), 0, 0, "alldone" ], ); @@ -369,7 +369,7 @@ sub selectInstallClass { $::beginner = $o->{installClass} eq "beginner"; $o->{partitions} ||= $suggestedPartitions{$o->{installClass}}; - install_any::setPackages($o, \@install_classes) if $o->{steps}{choosePackages}{entered} > 1; + $o->setPackages(\@install_classes) if $o->{steps}{choosePackages}{entered} >= 1; } #------------------------------------------------------------------------------ @@ -428,8 +428,10 @@ sub formatPartitions { } #------------------------------------------------------------------------------ +#-PADTODO sub choosePackages { - $o->choosePackages($o->{packages}, $o->{compss}, \@install_classes); + $o->setPackages($o, \@install_classes) if $_[1] == 1; + $o->choosePackages($o->{packages}, $o->{compss}); $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}}; } -- cgit v1.2.1