From dda88c87469bf52b97c22bd5c19b54202a7e1e67 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Wed, 18 Feb 2004 10:56:07 +0000 Subject: when cancel is pressed, fix re-selecting unselected packages (callback_choices unneeded, cf rpmdrake) --- perl-install/install_steps_gtk.pm | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index 56be22ca5..259ed9550 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -395,8 +395,7 @@ sub choosePackagesTree { $o->ask_warn('', $error) if $error; #- disable selection (or unselection). $isSelection ? $packages->disable_selected($packages->{rpmdb}, $state, @l) : - $packages->resolve_requested($packages->{rpmdb}, $state, \%l, - callback_choices => \&pkgs::packageCallbackChoices); + $packages->resolve_requested($packages->{rpmdb}, $state, { map { $_->id => 1 } @l }); } else { #- keep the changes, update visible state. foreach (@l) { -- cgit v1.2.1