From bf373a1565baddc2419db2a2febe32ff63fac3c5 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Fri, 4 Jan 2002 17:50:33 +0000
Subject: fixed empty flat package selection when giving a limit to medium.

---
 perl-install/install_steps_gtk.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index b13a1467d..bed9318dd 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -356,7 +356,8 @@ sub choosePackagesTree {
 				my ($add_node, $flat) = @_;
 				if ($flat) {
 				    foreach (sort keys %{$packages->{names}}) {
-					!$limit_to_medium || pkgs::packageMedium($packages, $_) == $limit_to_medium or next;
+					!$limit_to_medium ||
+					  pkgs::packageMedium($packages, $packages->{names}{$_}) == $limit_to_medium or next;
 					$add_node->($_, undef);
 				    }
 				} else {
-- 
cgit v1.2.1