From 3f985184d4bb4cbbde1c82eecf88a31a67ebf2bd Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Fri, 14 Dec 2012 14:05:04 +0000
Subject: show which media are actually disabled when offering to add
 supplementary ones

---
 perl-install/install/NEWS   | 3 +++
 perl-install/install/any.pm | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 3e2c10dc1..6c0f234e0 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- media step:
+  o show which media are disabled when offering to pick supplementary ones
+
 Version 15.11 - 13 December 2012
 
 - install grub2 if needed
diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 862696baf..4d6f240ff 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -114,7 +114,7 @@ sub ask_suppl_media_method {
 
 
 Do you have a supplementary installation medium to configure?",
-	    "\n\n\n" . join(",\n\n", map { "- $_->{name}" } install::media::allMediums($o->{packages}))));
+	    "\n\n\n" . join(",\n\n", map { "- $_->{name}" . ($_->{ignore} ? " (disabled)" : '') } install::media::allMediums($o->{packages}))));
 
     my %l = my @l = (
 	''      => N("None"),
-- 
cgit v1.2.1