From ec23fb122e2a2137723802e447416a8de02343a4 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 25 Sep 2001 09:14:49 +0000
Subject: allow non ejectable medium to allow all hdlists on the bootable
 medium.

---
 perl-install/install_steps_interactive.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index cf0fafde4..e793aa449 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -678,7 +678,10 @@ sub chooseCD {
 
     if (!common::usingRamdisk()) {
 	#- mono-cd in case of no ramdisk
-	undef $packages->{mediums}{$_}{selected} foreach @mediums;
+	foreach (@mediums) {
+	    pkgs::mediumDescr($packages, $install_any::boot_medium) eq pkgs::mediumDescr($packages, $_) and next;
+	    undef $packages->{mediums}{$_}{selected};
+	}
 	log::l("low memory install, using single CD installation (as it is not ejectable)");
 	return;
     }
-- 
cgit v1.2.1