From 29a7234c5bdf582d65e13a4de654eb82c0e0a2ff Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 7 Mar 2002 15:54:46 +0000
Subject: fixed package tree with a given medium.

---
 perl-install/install_steps_interactive.pm | 8 +++-----
 1 file changed, 3 insertions(+), 5 deletions(-)

(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 27e4a5e0b..1152ad772 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -554,11 +554,9 @@ sub choosePackagesTree {
 
     $o->ask_many_from_list('', _("Choose the packages you want to install"),
 			   {
-			    list => [ 
-				     map { pkgs::packageByName($packages, $_) }
-				     $limit_to_medium ?
-				     (grep { pkgs::packageMedium($packages, $_) == $limit_to_medium } keys %{$packages->{names}}) :
-				     (keys %{$packages->{names}}) ],
+			    list => [ grep { !$limit_to_medium || pkgs::packageMedium($packages, $_) == $limit_to_medium }
+				      map { pkgs::packageByName($packages, $_) }
+				      keys %{$packages->{names}} ],
 			    value => \&pkgs::packageFlagSelected,
 			    label => \&pkgs::packageName,
 			    sort => 1,
-- 
cgit v1.2.1