From 020f6418029005668208a92156f73958d5c2df12 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.com>
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