diff options
| author | Francois Pons <fpons@mandriva.com> | 2000-11-28 10:43:43 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2000-11-28 10:43:43 +0000 |
| commit | 7b5808c471c7eb99ebd6fc8cbdd4274d1f63fbae (patch) | |
| tree | 4ab8be5035bbb5e7f9c2952bb247965136ebef9d /perl-install/install_steps_interactive.pm | |
| parent | 3351ac83fb817b8418c6200b00758f136266073c (diff) | |
| download | drakx-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.pm | 9 |
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 {} |