From 55443c091b5320fbc2eb194073d277293f98eaca Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Mon, 15 Jul 2002 17:56:38 +0000 Subject: synced. --- perl-install/install2.pm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/perl-install/install2.pm b/perl-install/install2.pm index c5f3cddde..38fdf4b52 100644 --- a/perl-install/install2.pm +++ b/perl-install/install2.pm @@ -199,15 +199,13 @@ sub choosePackages { my ($clicked, $ent_number, $auto) = @_; require pkgs; - #- always setPackages as it may have to copy hdlist files and depslist file. - installStepsCall($o, $auto, 'setPackages'); - installStepsCall($o, $auto, 'selectPackagesToUpgrade') if $o->{isUpgrade} && $ent_number == 1; - + #- always setPackages as it may have to copy hdlist files and synthesis files. + installStepsCall($o, $auto, 'setPackages', $o->{isUpgrade} && $ent_number == 1); installStepsCall($o, $auto, 'choosePackages', $o->{packages}, $o->{compssUsers}, $ent_number == 1); log::l("compssUsersChoice's: ", join(" ", grep { $o->{compssUsersChoice}{$_} } keys %{$o->{compssUsersChoice}})); #- check pre-condition where base backage has to be selected. - pkgs::packageByName($o->{packages}, 'basesystem')->flag_selected or die "basesystem package not selected"; + pkgs::packageByName($o->{packages}, 'basesystem')->flag_available or die "basesystem package not selected"; #- check if there are package that need installation. $o->{steps}{installPackages}{done} = 0 if $o->{steps}{installPackages}{done} && pkgs::packagesToInstall($o->{packages}) > 0; -- cgit v1.2.1