From 7eba5b3a2b6c8dc1f6b2cb9d16abf648d5cbddc5 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 7 Jul 2000 14:58:27 +0000 Subject: *** empty log message *** --- perl-install/install_steps.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'perl-install/install_steps.pm') diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm index 151d6f3fc..99d338c89 100644 --- a/perl-install/install_steps.pm +++ b/perl-install/install_steps.pm @@ -238,11 +238,16 @@ sub choosePackages { pkgs::packageSetFlagSkip($_, 0); pkgs::packageSetFlagUnskip($_, 0); } - pkgs::unselectAllPackages($packages); - pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}}; - add2hash_($o, { compssListLevel => $::expert ? 90 : 80 }) unless $::auto_install; - pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $o->{compssListLevel}, $availableCorrected, $o->{installClass}) if exists $o->{compssListLevel}; + #- avoid destroying user selection of packages. TOCHECK + if ($first_time) { + pkgs::unselectAllPackages($packages); + pkgs::selectPackage($o->{packages}, pkgs::packageByName($o->{packages}, $_) || next) foreach @{$o->{default_packages}}; + + add2hash_($o, { compssListLevel => $::expert ? 90 : 80 }) unless $::auto_install; + pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $o->{compssListLevel}, $availableCorrected, $o->{installClass}) if exists $o->{compssListLevel}; + } + $availableCorrected; } -- cgit v1.2.1