From 32a64c55b6780490d44e03123ca575deb10fc1f9 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 3 Jul 2001 11:10:31 +0000 Subject: added improve choice of package, well not very usefull but asked by higher people :-) --- perl-install/install_steps_gtk.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'perl-install/install_steps_gtk.pm') diff --git a/perl-install/install_steps_gtk.pm b/perl-install/install_steps_gtk.pm index da7133d96..ff632debe 100644 --- a/perl-install/install_steps_gtk.pm +++ b/perl-install/install_steps_gtk.pm @@ -395,6 +395,7 @@ sub choosePackagesTree { } else { foreach my $root (@{$o->{compssUsersSorted}}) { my (%fl, @firstchoice, @others); + #$fl{$_} = $o->{compssUsersChoice}{$_} foreach @{$o->{compssUsers}{$root}{flags}}; #- FEATURE:improve choce of packages... $fl{$_} = 1 foreach @{$o->{compssUsers}{$root}{flags}}; foreach my $p (values %{$packages->{names}}) { my ($rate, @flags) = pkgs::packageRateRFlags($p); -- cgit v1.2.1