(ask_deselect_media__copy_on_disk) more adjustments for ->{selected} => ->{ignore} switch

2 files changed, 5 insertions, 5 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;
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index a956419a7..03d89d033 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -342,8 +342,8 @@ It will then continue from the hard drive and the packages will remain available
 		    { type => 'bool', text => N("Copy whole CDs"), val => $o_copy_rpms_on_disk },
 		  ),
 		]);
-    $_->{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);
 }
 
 sub while_suspending_time {