From 408bb7d8e0515fb181d06c8294a73aebafbac96b Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Wed, 13 Feb 2002 16:47:32 +0000
Subject: added extension to setSelectedFromCompssList.

---
 perl-install/pkgs.pm | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 5107c0bc8..d312c1c13 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -741,7 +741,7 @@ sub saveCompssUsers {
 }
 
 sub setSelectedFromCompssList {
-    my ($packages, $compssUsersChoice, $min_level, $max_size) = @_;
+    my ($packages, $compssUsersChoice, $min_level, $max_size, $otherOnly) = @_;
     $compssUsersChoice->{TRUE} = 1; #- ensure TRUE is set
     my $nb = selectedSize($packages);
     foreach my $p (sort { packageRate($b) <=> packageRate($a) } values %{$packages->{names}}) {
@@ -767,10 +767,16 @@ sub setSelectedFromCompssList {
 	}
 
 	#- at this point the package can safely be selected.
-	selectPackage($packages, $p);
+	if ($otherOnly) {
+	    selectPackage($packages, $p, 0, $otherOnly);
+	} else {
+	    selectPackage($packages, $p);
+	}
+    }
+    unless ($otherOnly) {
+	log::l("setSelectedFromCompssList: reached size ", formatXiB($nb), ", up to indice $min_level (less than ", formatXiB($max_size), ")");
+	log::l("setSelectedFromCompssList: ", join(" ", sort map { packageName($_) } grep { packageFlagSelected($_) } @{$packages->{depslist}}));
     }
-    log::l("setSelectedFromCompssList: reached size ", formatXiB($nb), ", up to indice $min_level (less than ", formatXiB($max_size), ")");
-    log::l("setSelectedFromCompssList: ", join(" ", sort map { packageName($_) } grep { packageFlagSelected($_) } @{$packages->{depslist}}));
     $min_level;
 }
 
-- 
cgit v1.2.1