summaryrefslogtreecommitdiffstats
path: root/perl-install/install/steps_gtk.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mandriva.org>2009-03-23 16:16:18 +0000
committerThierry Vignaud <tv@mandriva.org>2009-03-23 16:16:18 +0000
commitdbaf8aaf7216f72d4bccbab0c6aa643a581547ab (patch)
treeda3fe140c8fbff7507d3a310144d46dbd9a12af2 /perl-install/install/steps_gtk.pm
parent1a66093ca5f5ffac11eba7206d74e2c93a51517a (diff)
downloaddrakx-dbaf8aaf7216f72d4bccbab0c6aa643a581547ab.tar
drakx-dbaf8aaf7216f72d4bccbab0c6aa643a581547ab.tar.gz
drakx-dbaf8aaf7216f72d4bccbab0c6aa643a581547ab.tar.bz2
drakx-dbaf8aaf7216f72d4bccbab0c6aa643a581547ab.tar.xz
drakx-dbaf8aaf7216f72d4bccbab0c6aa643a581547ab.zip
(ask_deselect_media__copy_on_disk) more adjustments for ->{selected} => ->{ignore} switch
Diffstat (limited to 'perl-install/install/steps_gtk.pm')
-rw-r--r--perl-install/install/steps_gtk.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 7affd8f24..8b836ecd6 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -715,7 +715,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 { $_->{name} => $_->{selected} } @$hdlists;
+ my %selection = map { $_->{name} => !$_->{ignore} } @$hdlists;
if (@names > 1 || $o_copy_rpms_on_disk) {
my $w = ugtk2->new(N("Media Selection"));
@@ -758,8 +758,8 @@ It will then continue from the hard drive and the packages will remain available
);
$w->main;
}
- $_->{selected} = $selection{$_->{name}} foreach @$hdlists;
- log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { $_->{selected} } @$hdlists);
+ !$_->{ignore} = $selection{$_->{name}} foreach @$hdlists;
+ log::l("keeping media " . join ',', map { $_->{rpmsdir} } grep { !$_->{ignore} } @$hdlists);
}
1;