From 0a5e281ec0a4bfc3e3c3e907b7cdc90f24ec8161 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/any.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

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