summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-01-15 12:47:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-01-15 12:47:16 +0000
commite42cc342101befd37e51a9f4c53e553c440af9ad (patch)
tree54f58aeaff11e3f045f5f4099bcfae51c8f3a66c /perl-install
parenta624390c70675cd26d6166a6f4402e87f0d3cbc4 (diff)
downloaddrakx-e42cc342101befd37e51a9f4c53e553c440af9ad.tar
drakx-e42cc342101befd37e51a9f4c53e553c440af9ad.tar.gz
drakx-e42cc342101befd37e51a9f4c53e553c440af9ad.tar.bz2
drakx-e42cc342101befd37e51a9f4c53e553c440af9ad.tar.xz
drakx-e42cc342101befd37e51a9f4c53e553c440af9ad.zip
fix individual package selection (was broken since 30 september...)
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install_steps_gtk.pm5
1 files changed, 2 insertions, 3 deletions
diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm
index 63a10764b..77ad68020 100644
--- a/perl-install/install_steps_gtk.pm
+++ b/perl-install/install_steps_gtk.pm
@@ -400,7 +400,7 @@ sub choosePackagesTree {
$o->ask_okcancel('', [ $isSelection ?
N("The following packages are going to be installed") :
N("The following packages are going to be removed"),
- formatList(20, sort @l) ], 1) or $error = ''; #- defined
+ formatList(20, sort(map { $_->name } @l)) ], 1) or $error = ''; #- defined
}
$error and $o->ask_warn('', $error);
if (defined $error) {
@@ -411,8 +411,7 @@ sub choosePackagesTree {
} else {
#- keep the changes, update visible state.
foreach (@l) {
- my $p = pkgs::packageByName($packages, $_);
- $set_state->($_, $p->flag_selected ? 'selected' : 'unselected');
+ $set_state->($_->name, $_->flag_selected ? 'selected' : 'unselected');
}
}
},