From aea1a43fb77b8b4c7cf9cc137b2629dd680666ed Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
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(-)

(limited to 'perl-install')

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