summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2000-11-28 10:43:43 +0000
committerFrancois Pons <fpons@mandriva.com>2000-11-28 10:43:43 +0000
commit7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae (patch)
tree4ab8be5035bbb5e7f9c2952bb247965136ebef9d /perl-install/install_steps_interactive.pm
parent3351ac83fb817b8418c6200b00758f136266073c (diff)
downloaddrakx-backup-do-not-use-7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae.tar
drakx-backup-do-not-use-7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae.tar.gz
drakx-backup-do-not-use-7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae.tar.bz2
drakx-backup-do-not-use-7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae.tar.xz
drakx-backup-do-not-use-7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae.zip
choose default size according to a default mark (currently 49).
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 379b58ecb..e12bee040 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -433,8 +433,11 @@ 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 = 49;
my $b = pkgs::saveSelected($packages);
+ pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $def_mark, 0, $o->{installClass});
+ my $def_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero.
my ($ind, $level) = pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $min_mark, 0, $o->{installClass});
my $max_size = pkgs::selectedSize($packages) + 1; #- avoid division by zero.
pkgs::restoreSelected($b);
@@ -461,7 +464,7 @@ sub choosePackages {
$o->set_help('empty');
$o->ask_from_listf('', _("Select the size you want to install"), sub { _ ($text[$_[1]], $_[0]) }, \@l, $l[1]) * sqr(1024);
} else {
- $o->chooseSizeToInstall($packages, $min_size, $max_size, $availableC, $individual) || goto &choosePackages;
+ $o->chooseSizeToInstall($packages, $min_size, $def_size, $max_size, $availableC, $individual) || goto &choosePackages;
}
});
if (!$size2install) { #- special case for desktop
@@ -475,8 +478,8 @@ sub choosePackages {
}
sub chooseSizeToInstall {
- my ($o, $packages, $min, $max, $availableC) = @_;
- $availableC * 0.7;
+ my ($o, $packages, $min, $def, $max, $availableC) = @_;
+ min($def, $availableC * 0.7);
}
sub choosePackagesTree {}