summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-09-29 11:06:13 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-09-29 11:06:13 +0000
commiteef67a1c9d9bf24315c326ddc67fee0cfb2ab525 (patch)
treee324f6198e5975fb30273a06fa6f617ef7129000 /perl-install
parentd6654de7b609f614efa1833e340b3f6009eb017b (diff)
downloaddrakx-eef67a1c9d9bf24315c326ddc67fee0cfb2ab525.tar
drakx-eef67a1c9d9bf24315c326ddc67fee0cfb2ab525.tar.gz
drakx-eef67a1c9d9bf24315c326ddc67fee0cfb2ab525.tar.bz2
drakx-eef67a1c9d9bf24315c326ddc67fee0cfb2ab525.tar.xz
drakx-eef67a1c9d9bf24315c326ddc67fee0cfb2ab525.zip
- ask_deselect_media__copy_on_disk:
o do not select all media by default (eg: debug media) (nb: this dialog occurs when user chooses "Go back to media and packages selection" on pkg install error)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS8
-rw-r--r--perl-install/install/steps_gtk.pm2
2 files changed, 7 insertions, 3 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 4aeed59bb..19f1c73ae 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,5 +1,9 @@
-- ask_deselect_media__copy_on_disk: replace scrolled window around everything
- with a scrolled window around the list of checkboxes
+- ask_deselect_media__copy_on_disk:
+ o do not select all media by default (eg: debug media)
+ (nb: this dialog occurs when user chooses "Go back to media and packages
+ selection" on pkg install error)
+ o replace scrolled window around everything
+ with a scrolled window around the list of checkboxes
- adapt to fonts-ttf-gurmukhi => fonts-ttf-lohit switch
- add spacing between radio buttons for readability (#44332)
- better positionning of sidepanel's selection bar
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 91967bccd..0b211221b 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -701,7 +701,7 @@ sub ask_deselect_media__copy_on_disk {
my ($_o, $hdlists, $o_copy_rpms_on_disk) = @_;
my @names = uniq(map { $_->{name} } @$hdlists);
- my %selection = map { $_ => 1 } @names;
+ my %selection = map { $_->{name} => $_->{selected} } @$hdlists;
if (@names > 1 || $o_copy_rpms_on_disk) {
my $w = ugtk2->new(N("Media Selection"));