(media_screen) only display release & update media

else there're too many media and it's unreadable

1 files changed, 2 insertions, 1 deletions

diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm
index 0e384ffd2..23a018b95 100644
--- a/perl-install/install/any.pm
+++ b/perl-install/install/any.pm
@@ -325,6 +325,7 @@ sub media_screen {
     # - detect if non-free/tainted were selected previously / are now needed
     #   rpm -qa |grep tainted/non-free + check for kmod with firmwares
     # - use red color in that case (gtk+ version? interactive::gtk version?)
+    # - present media as trees (eg 3 main branches (core/nonfree/tainted and sub medium below (release/updates/...)
     my %descriptions = (
         'Core Release' => N("\"%s\" contains the various pieces of the systems and its applications", _core_medium()),
         'Nonfree Release' => N("\"%s\" contains non free software.\n", _nonfree_medium()) .
@@ -347,7 +348,7 @@ sub media_screen {
                 disabled => sub { $medium->{name} eq 'Core Release' },
                 format => sub { $descriptions{$_[0]} || translate(%descriptions) },
             };
-        } @{$urpm->{media}},
+        } grep { $_->{name} =~ /Release$|Updates$/ } @{$urpm->{media}},
     ]);