From aea1a43fb77b8b4c7cf9cc137b2629dd680666ed Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Tue, 28 Nov 2000 15:11:16 +0000 Subject: modified def_mark to 59 (gl hw acceleration level) and upgrade use this level for newbies so. --- perl-install/install_steps_interactive.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 46e13a0df..7f09c6a98 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -433,7 +433,7 @@ sub choosePackages { $min_size < $availableC or die _("Your system has not enough space left for installation or upgrade (%d > %d)", $min_size, $availableC); my $min_mark = $::beginner ? 25 : $::expert ? 0 : 1; - my $def_mark = 50; + my $def_mark = 59; #- 59 is for packages that need gl hw acceleration. my $b = pkgs::saveSelected($packages); pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $def_mark, 0, $o->{installClass}); @@ -449,7 +449,7 @@ sub choosePackages { if ($::beginner) { if ($o->{isUpgrade}) { - $min_size; #- already selected size with at least 80 for compssList level. + min($def_size, $max); } else { my (@l); my @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)")); -- cgit v1.2.1