summaryrefslogtreecommitdiffstats
path: root/perl-install/install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:25:45 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:25:45 +0000
commit1c1f7fcaa1602cf51e4c1879fe111be88302b3a9 (patch)
tree3409cd9cb1675cf8458b5fd6e4575a4039e22db5 /perl-install/install
parent167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7 (diff)
downloaddrakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar
drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar.gz
drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar.bz2
drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.tar.xz
drakx-1c1f7fcaa1602cf51e4c1879fe111be88302b3a9.zip
(offer_minimal_options) split it out of chooseGroups()
Diffstat (limited to 'perl-install/install')
-rw-r--r--perl-install/install/steps_interactive.pm9
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 2ead20c9c..22cc0c2b0 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -580,6 +580,13 @@ sub chooseGroups {
}
#- if no group have been chosen, ask for using base system only, or no X, or normal.
if (!$o->{isUpgrade} && !any { $_->{selected} } @$compssUsers) {
+ offer_minimal_options($o);
+ }
+ 1;
+}
+
+sub offer_minimal_options {
+ my ($o) = @_;
my $docs = !$o->{excludedocs};
state $minimal;
my $suggests = $o->{no_suggests};
@@ -608,8 +615,6 @@ Please choose the minimal installation you want:"),
log::l("install settings: no_suggests=$o->{no_suggests}, excludedocs=$o->{excludedocs}, really_minimal_install=$minimal");
install::any::unselectMostPackages($o);
- }
- 1;
}
sub reallyChooseGroups {