From e42cc342101befd37e51a9f4c53e553c440af9ad Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 15 Jan 2004 12:47:16 +0000 Subject: fix individual package selection (was broken since 30 september...) --- perl-install/install_steps_gtk.pm | 5 ++--- 1 file 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'); } } }, -- cgit v1.2.1