From 020f6418029005668208a92156f73958d5c2df12 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Wed, 24 Sep 2008 15:39:04 +0000 Subject: always set compssListLevel in interactive choosePackages step (even in auto-install) --- perl-install/install/install2.pm | 3 --- perl-install/install/steps_interactive.pm | 3 +++ 2 files changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/install') diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index 573491b88..6b928c8e1 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -192,9 +192,6 @@ sub choosePackages { my ($auto) = @_; require install::pkgs; - require pkgs; - add2hash_($o, { compssListLevel => $pkgs::rpmsrate_rate_default }) if !$::auto_install; - #- always setPackages as it may have to copy hdlist and synthesis files. installStepsCall($o, $auto, 'setPackages'); installStepsCall($o, $auto, 'choosePackages'); diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 918303329..7ab4b11e1 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -397,6 +397,9 @@ sub selectSupplMedia { sub choosePackages { my ($o) = @_; + require pkgs; + add2hash_($o, { compssListLevel => $pkgs::rpmsrate_rate_default }); + my $w = $o->wait_message('', N("Looking for available packages...")); my $availableC = install::steps::choosePackages($o, $pkgs::rpmsrate_rate_max); -- cgit v1.2.1