diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-06 16:13:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-06 16:13:41 +0000 |
| commit | 131b1cee3b73330418e3400175d10ab72c3cbb5c (patch) | |
| tree | bcf7a3c6ce627d19c9f6eeedaa76e1a087563a0d /perl-install/install/any.pm | |
| parent | fdef013f9ac3f46704191faa68ac3ebf9b527881 (diff) | |
| download | drakx-131b1cee3b73330418e3400175d10ab72c3cbb5c.tar drakx-131b1cee3b73330418e3400175d10ab72c3cbb5c.tar.gz drakx-131b1cee3b73330418e3400175d10ab72c3cbb5c.tar.bz2 drakx-131b1cee3b73330418e3400175d10ab72c3cbb5c.tar.xz drakx-131b1cee3b73330418e3400175d10ab72c3cbb5c.zip | |
(media_screen) only display release & update media
else there're too many media and it's unreadable
Diffstat (limited to 'perl-install/install/any.pm')
| -rw-r--r-- | perl-install/install/any.pm | 3 |
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}}, ]); |