From 010f1924811a5d1bd7d461e69f482b2992f0f27f Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Mon, 9 Aug 2004 23:06:48 +0000
Subject: Select supplementary medium

---
 perl-install/install_any.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 3c1075ece..0d52340f3 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -445,6 +445,12 @@ sub setPackages {
 			$tmphdlistfile,
 		    );
 		    unlink $tmphdlistfile;
+		    if ($supplmedium) {
+			log::l("read suppl hdlist");
+			$supplmedium->{selected} = 1;
+		    } else {
+			log::l("no suppl hdlist");
+		    }
 		}
 	    } else {
 		$suppl_method = '';
-- 
cgit v1.2.1