From 311f5ef312ec2e8ca2713ccc4b467b62794d8f27 Mon Sep 17 00:00:00 2001
From: Mystery Man 553 <uid553@mandriva.org>
Date: Mon, 12 Feb 2001 18:17:42 +0000
Subject: (choosePackagesTree): non first choice packages are in "Other".

---
 perl-install/install_steps_gtk.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 0c694ecdc..145b56159 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -327,6 +327,7 @@ sub choosePackagesTree {
 	    foreach (sort @$compss) {
 		($root, $leaf) = m|(.*)/(.+)|o or ($root, $leaf) = ('', $_);
 		my $pkg = pkgs::packageByName($packages, $leaf);
+		$root .= '/' . _("Other") if pkgs::packageRate($pkg) < 4;
 		$add_node->($leaf, $root) if pkgs::packageMedium($pkg)->{selected};
 	    }
 	}
-- 
cgit v1.2.1