diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-12-10 14:06:55 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-12-10 14:06:55 +0000 |
| commit | 733892567db613519722628f37b12566c09dd447 (patch) | |
| tree | 7078620dff48acac0b798193015da611d131131a /perl-install/install | |
| parent | 98683c56829788f4e209da96d333b84ed8135243 (diff) | |
| download | drakx-backup-do-not-use-733892567db613519722628f37b12566c09dd447.tar drakx-backup-do-not-use-733892567db613519722628f37b12566c09dd447.tar.gz drakx-backup-do-not-use-733892567db613519722628f37b12566c09dd447.tar.bz2 drakx-backup-do-not-use-733892567db613519722628f37b12566c09dd447.tar.xz drakx-backup-do-not-use-733892567db613519722628f37b12566c09dd447.zip | |
(media_screen blacklist unwanted media instead of whitelisting wanted ones
thus fixing dual cd where media names are not the regular ones
Diffstat (limited to 'perl-install/install')
| -rw-r--r-- | perl-install/install/NEWS | 4 | ||||
| -rw-r--r-- | perl-install/install/any.pm | 3 |
2 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index bf94d6063..e5170b237 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,7 @@ +- media choice step: + o blacklist unwanted media instead of whitelisting wanted ones + (fix dual cd where media names are not the regular ones) + Version 15.6 - 10 December 2012 - language choise: diff --git a/perl-install/install/any.pm b/perl-install/install/any.pm index 58afe29a0..26bbe9f0b 100644 --- a/perl-install/install/any.pm +++ b/perl-install/install/any.pm @@ -343,6 +343,7 @@ sub media_screen { # 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/...) + # - use keywords (backports,testing,testing,sources) to blacklist 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()) . @@ -366,7 +367,7 @@ sub media_screen { disabled => sub { $medium->{name} eq 'Core Release' }, format => sub { $descriptions{$_[0]} || translate(%descriptions) }, }; - } grep { $_->{name} =~ /Release$|Updates$/ } @{$urpm->{media}}, + } grep { $_->{name} !~ /Debug|Testing|Sources|Backports/ } @{$urpm->{media}}, ]); |