From 3205e7bb9b043b9b93f9501029e902b38c756c0e Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Thu, 9 Sep 2004 10:16:26 +0000
Subject: minor fix in last patch

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

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index cc1b2865a..50c2c4662 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -649,7 +649,9 @@ sub chooseCD {
     }
 
     if (install_any::method_is_from_ISO_images($o->{method})) {
-        $mediumsDescr{$_} = install_any::method_is_from_ISO_images($packages->{mediums}{$_}{method}) ? to_bool(install_any::find_ISO_image_labelled($_)) : 1;
+        $mediumsDescr{$_} = install_any::method_is_from_ISO_images($packages->{mediums}{$_}{method})
+	    ? to_bool(install_any::find_ISO_image_labelled($_)) : 1
+	    foreach @mediumsDescr;
     } elsif ($o->{method} eq "cdrom") {
         #- if no other medium available or a poor beginner, we are choosing for him!
         #- note first CD is always selected and should not be unselected!
-- 
cgit v1.2.1