summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-10-02 12:20:46 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-10-02 12:20:46 +0000
commit8dae955d6c76f66df700d50676a142610175bef8 (patch)
tree17f4ae078d870923fea1a2a5335cdd806e90f675 /perl-install/install_steps_interactive.pm
parent5f0786356a985b38016f85b19527e1969146deb6 (diff)
downloaddrakx-8dae955d6c76f66df700d50676a142610175bef8.tar
drakx-8dae955d6c76f66df700d50676a142610175bef8.tar.gz
drakx-8dae955d6c76f66df700d50676a142610175bef8.tar.bz2
drakx-8dae955d6c76f66df700d50676a142610175bef8.tar.xz
drakx-8dae955d6c76f66df700d50676a142610175bef8.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm11
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 546d19fbb..73fbedd2e 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -475,15 +475,16 @@ sub choosePackages {
my $max = round_up(min($max_size, $availableC) / sqr(1024), 100);
if ($::beginner) {
- my (@l, @text);
+ my (@l);
+ my @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)"));
if ($o->{meta_class} eq 'desktop') {
- @l = (500, 800, 0);
- @text = (__("Minimum (%dMB)"), __("Complete (%dMB)"), __("Custom"));
- $max > $l[1] or splice(@l, 1, 1), splice(@text, 1, 1);
+ @l = (300, 500, 800, 0);
+ $max > $l[2] or splice(@l, 2, 1);
+ $max > $l[1] or splice(@l, 1, 1);
$max > $l[0] or @l = $max;
+ $text[$#l] = __("Custom");
} else {
@l = (300, 700, $max);
- @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)"));
$l[2] > $l[1] + 200 or splice(@l, 1, 1); #- not worth proposing too alike stuff
$l[1] > $l[0] + 100 or splice(@l, 0, 1);
}