diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2004-01-15 12:47:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2004-01-15 12:47:16 +0000 |
| commit | e42cc342101befd37e51a9f4c53e553c440af9ad (patch) | |
| tree | 54f58aeaff11e3f045f5f4099bcfae51c8f3a66c /perl-install | |
| parent | a624390c70675cd26d6166a6f4402e87f0d3cbc4 (diff) | |
| download | drakx-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.pm | 5 |
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'); } } }, |