From b8be6027d2ebde3cfb7229d3efa11db317ed86e4 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 16 Jul 2002 17:41:36 +0000 Subject: improve a little. --- perl-install/install_steps_interactive.pm | 23 +++++++++++------------ 1 file changed, 11 insertions(+), 12 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 46ee8ab6c..fc33d1cb8 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -508,15 +508,11 @@ sub choosePackages { $min_size < $availableC or die _("Your system does not have enough space left for installation or upgrade (%d > %d)", $min_size, $availableC); my $min_mark = $::expert ? 3 : 4; - my $def_mark = 4; #-TODO: was 59, 59 is for packages that need gl hw acceleration. my $b = pkgs::saveSelected($packages); - pkgs::setSelectedFromCompssList($packages, $o->{compssUsersChoice}, $def_mark, 0); - my $def_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero. - log::l("default size (level $def_mark) is : " . formatXiB($def_size)); my $level = pkgs::setSelectedFromCompssList($packages, { map { $_ => 1 } map { @{$compssUsers->{$_}{flags}} } @{$o->{compssUsersSorted}} }, $min_mark, 0); my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero. - log::l("max size (level $min_mark) is : " . formatXiB($def_size)); + log::l("max size (level $min_mark) is : " . formatXiB($max_size)); pkgs::restoreSelected($b); $o->chooseGroups($packages, $compssUsers, $min_mark, \$individual, $max_size) if !$::corporate; @@ -529,10 +525,6 @@ sub choosePackages { install_any::warnAboutNaughtyServers($o); } -sub chooseSizeToInstall { - my ($o, $packages, $min, $def, $max, $availableC) = @_; - min($def, $availableC * 0.7); -} sub choosePackagesTree { my ($o, $packages, $limit_to_medium) = @_; @@ -581,6 +573,12 @@ The format is the same as auto_install generated floppies."), sub chooseGroups { my ($o, $packages, $compssUsers, $min_level, $individual, $max_size) = @_; + #- for all groups available, determine package which belongs to each one. + #- this will enable getting the size of each groups more quickly due to + #- limitation of current implementation. + #- use an empty state for each one (no flag update should be propagated). + +#- OLD VERSION my $b = pkgs::saveSelected($packages); install_any::unselectMostPackages($o); pkgs::setSelectedFromCompssList($packages, {}, $min_level, $max_size); @@ -617,13 +615,13 @@ sub chooseGroups { } @groups; # @groups = grep { $size{$_} = round_down($size{$_} / sqr(1024), 10) } @groups; #- don't display the empty or small one (eg: because all packages are below $min_level) - my ($all, $size); + my ($all, $size, $unselect_all); my $available_size = install_any::getAvailableSpace($o) / sqr(1024); my $size_to_display = sub { my $lsize = $system_size + $compute_size->(map { @{$compssUsers->{$_}{flags}} } grep { $val{$_} } @groups); #- if a profile is deselected, deselect everything (easier than deselecting the profile packages) - $size > $lsize and install_any::unselectMostPackages($o); + $unselect_all ||= $size > $lsize; $size = $lsize; _("Total size: %d / %d MB", pkgs::correctSize($size / sqr(1024)), $available_size); }; @@ -646,6 +644,7 @@ sub chooseGroups { log::l("compssUsersChoice: " . (!$val{$_} && "not ") . "selected [$_] as [$o->{compssUsers}{$_}{label}]") foreach keys %val; + $unselect_all and install_any::unselectMostPackages($o); #- if no group have been chosen, ask for using base system only, or no X, or normal. unless ($o->{isUpgrade} || grep { $val{$_} } keys %val) { my $docs = !$o->{excludedocs}; @@ -674,7 +673,7 @@ Please choose the minimal installation you want:"), install_any::setDefaultPackages($o, 'clean'); $o->{compssUsersChoice}{X} = $X; } - install_any::unselectMostPackages($o); + $unselect_all or install_any::unselectMostPackages($o); } 1; } -- cgit v1.2.1