From f0dd89ace0dc594664e866aed846b253493720b6 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Tue, 3 Apr 2001 12:19:02 +0000 Subject: (choosePackages): do not make a special case for upgrades (was: select the min size, which was on contradiction with profile selection) --- perl-install/install_steps_interactive.pm | 4 ---- 1 file changed, 4 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index b82463dd4..5ae27f918 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -466,9 +466,6 @@ sub choosePackages { my $max = round_up(min($max_size, $availableC) / sqr(1024), 100); if (1) { - if ($o->{isUpgrade}) { - min($def_size, $max); - } else { my (@l); my @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)")); if ($o->{meta_class} eq 'desktop') { @@ -486,7 +483,6 @@ sub choosePackages { # $o->ask_from_listf('', _("Select the size you want to install"), # sub { _ ($text[$_[0]], $_[0]) }, \@l, $l[1]) * sqr(1024); $max * sqr(1024); - } } else { $o->chooseSizeToInstall($packages, $min_size, $def_size, $max_size, $availableC, $individual) || goto &choosePackages; } -- cgit v1.2.1