summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-19 13:20:57 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-19 13:20:57 +0000
commit969469b7c94f420adda2705769f44fe0c3abd47e (patch)
tree33742c40755b8f436cc600e588e9640cdbe46456 /perl-install/install_steps_interactive.pm
parenteeb988a2c499ba48ae280454a7b305ab028a4c9e (diff)
downloaddrakx-969469b7c94f420adda2705769f44fe0c3abd47e.tar
drakx-969469b7c94f420adda2705769f44fe0c3abd47e.tar.gz
drakx-969469b7c94f420adda2705769f44fe0c3abd47e.tar.bz2
drakx-969469b7c94f420adda2705769f44fe0c3abd47e.tar.xz
drakx-969469b7c94f420adda2705769f44fe0c3abd47e.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm26
1 files changed, 20 insertions, 6 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 0093a1441..64cfa1ea9 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -1,3 +1,4 @@
+
package install_steps_interactive; # $Id$
@@ -138,7 +139,7 @@ are you ready to answer that kind of questions?"),
);
$o->set_help('selectInstallClass2');
$o->{installClass} = $o->ask_from_listf(_("Install Class"),
- _("Which usage is your system used for ?"),
+ _("What is your system used for?"),
sub { $c{$_[0]} },
[ keys %c ],
$o->{installClass});
@@ -350,16 +351,29 @@ sub choosePackages {
my $max_size = 1 + $size; #- avoid division by zero.
my $size2install = min($availableC, do {
- if ($::beginner) {
- my @l = (300, 700, round_up(min($max_size, $availableC) / sqr(1024), 100));
- $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);
- my @text = (__("Minimum (%dMB)"), __("Recommended (%dMB)"), __("Complete (%dMB)"));
+ my $max = round_up(min($max_size, $availableC) / sqr(1024), 100);
+
+ if ($::beginner) {
+ my (@l, @text);
+ 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);
+ $max > $l[0] or @l = $max;
+ } 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);
+ }
$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;
}
});
+ if (!$size2install) { #- special case for desktop
+ $o->chooseGroups($packages, $compssUsers, $compssUsersSorted, \$individual);
+ }
($o->{packages_}{ind}) =
pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $min_mark, $size2install, $o->{installClass});
}