From d61783311fe269e7d4816512bd070492e62c1358 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 16 Jan 2003 16:28:31 +0000
Subject: fixed not to ask group instead of individual package selection.

---
 perl-install/install_steps_interactive.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index f20a6382f..f2aa28d6d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -383,7 +383,7 @@ sub choosePackages {
     log::l("max size (level $min_mark) is : " . formatXiB($max_size));
     pkgs::restoreSelected($b);
 
-    $o->chooseGroups($packages, $compssUsers, $min_mark, !$o->{isUpgrade} && \$individual, $max_size) if !$::corporate;
+    $o->chooseGroups($packages, $compssUsers, $min_mark, \$individual, $max_size) unless $o->{isUpgrade} || $::corporate;
 
     ($o->{packages_}{ind}) =
       pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $min_mark, $availableC);
-- 
cgit v1.2.1