diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-10-02 12:20:46 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-10-02 12:20:46 +0000 |
| commit | 8dae955d6c76f66df700d50676a142610175bef8 (patch) | |
| tree | 17f4ae078d870923fea1a2a5335cdd806e90f675 /perl-install/install_steps_interactive.pm | |
| parent | 5f0786356a985b38016f85b19527e1969146deb6 (diff) | |
| download | drakx-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.pm | 11 |
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); } |