From e5fcca98fe2cdc793610a4a51d1b2b81e771c19a Mon Sep 17 00:00:00 2001
From: Pascal Terjan <pterjan@mandriva.org>
Date: Wed, 2 Sep 2009 17:15:26 +0000
Subject: allow minimal install without suggests

---
 perl-install/install/steps_interactive.pm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'perl-install/install/steps_interactive.pm')

diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index acdbb57d6..957a9da0e 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -569,6 +569,7 @@ sub chooseGroups {
     if (!$o->{isUpgrade} && !any { $_->{selected} } @$compssUsers) {
 	my $docs = !$o->{excludedocs};	
 	my $minimal;
+	my $suggests;
 
 	$o->ask_from_({ title => N("Type of install"), 
                         message =>N("You have not selected any group of packages.
@@ -577,6 +578,7 @@ Please choose the minimal installation you want:"),
                         },
 		     [
 		      { val => \$o->{rpmsrate_flags_chosen}{CAT_X}, type => 'bool', text => N("With X"), disabled => sub { $minimal } },
+		      { val => \$suggests, type => 'bool', text => N("Install suggested packages"), disabled => sub { $minimal } },
 		      { val => \$docs, type => 'bool', text => N("With basic documentation (recommended!)"), disabled => sub { $minimal } },
 		      { val => \$minimal, type => 'bool', text => N("Truly minimal install (especially no urpmi)") },
 		     ],
@@ -588,6 +590,7 @@ Please choose the minimal installation you want:"),
 	}
 	$o->{excludedocs} = !$docs;
 	$o->{rpmsrate_flags_chosen}{CAT_MINIMAL_DOCS} = $docs;
+	$o->{no_suggests} = !$suggests;
 
 	install::any::unselectMostPackages($o);
     }
-- 
cgit v1.2.1