From ddcc13c3f48ca20ebe502a745721f97455d432b1 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 16 Jan 2003 11:36:16 +0000
Subject: do not propose individual package on upgrade.

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 91a9860f0..a2be95bc5 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, \$individual, $max_size) if !$::corporate;
+    $o->chooseGroups($packages, $compssUsers, $min_mark, !$o->{isUpgrade} && \$individual, $max_size) if !$::corporate;
 
     ($o->{packages_}{ind}) =
       pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $min_mark, $availableC);
-- 
cgit v1.2.1