From 46eec5dbc379939056f4a973a4c18fef7dcd1a65 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:25:45 +0000
Subject: (offer_minimal_options) split it out of chooseGroups()

---
 perl-install/install/steps_interactive.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

(limited to 'perl-install')

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 {
-- 
cgit v1.2.1