From 1d1cc4d106e682c303b12952066bab7d74936e9e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 23 Sep 2008 17:48:40 +0000 Subject: use o->{compssListLevel} instead of hardcoded default rate (so that it can be customized from command line later) --- perl-install/install/steps_interactive.pm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index d5e8b5f65..4d3256c32 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -412,7 +412,6 @@ sub choosePackages { install::steps::rebootNeeded($o); } - my $min_mark = $pkgs::rpmsrate_rate_default; my ($individual, $chooseGroups); if (!$o->{isUpgrade}) { @@ -428,10 +427,10 @@ sub choosePackages { } chooseGroups: - $o->chooseGroups($o->{packages}, $o->{compssUsers}, $min_mark, \$individual) if $chooseGroups; + $o->chooseGroups($o->{packages}, $o->{compssUsers}, $o->{compssListLevel}, \$individual) if $chooseGroups; ($o->{packages_}{ind}) = - install::pkgs::setSelectedFromCompssList($o->{packages}, $o->{rpmsrate_flags_chosen}, $min_mark, $availableC); + install::pkgs::setSelectedFromCompssList($o->{packages}, $o->{rpmsrate_flags_chosen}, $o->{compssListLevel}, $availableC); $o->choosePackagesTree($o->{packages}) or goto chooseGroups if $individual; -- cgit v1.2.1