summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/NEWS2
-rw-r--r--perl-install/install/steps_interactive.pm10
2 files changed, 11 insertions, 1 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index e6479bc09..6754e1c4b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,4 +1,6 @@
- don't crash install when mounting CD fails (#33421)
+- don't ask for desktop and go directly to choose groups if kde and gnome are
+ not available on media (useful for mini iso)
Version 10.4.211 - 24 September 2007, by Pascal "Pixel" Rigaux
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index b02f066e8..d650c7d82 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -365,7 +365,15 @@ sub choosePackages {
my $min_mark = 4;
my ($individual, $chooseGroups);
- _chooseDesktop($o, $o->{rpmsrate_flags_chosen}, \$chooseGroups) if !$o->{upgrade};
+ if (!$o->{upgrade}) {
+ if (install::pkgs::packageByName($o->{packages}, 'task-kde') &&
+ install::pkgs::packageByName($o->{packages}, 'task-gnome-minimal')) {
+ _chooseDesktop($o, $o->{rpmsrate_flags_chosen}, \$chooseGroups);
+ } else {
+ # don't ask for desktop if kde and gnome are not available on media (useful for mini iso)
+ $chooseGroups = 1;
+ }
+ }
chooseGroups:
$o->chooseGroups($o->{packages}, $o->{compssUsers}, $min_mark, \$individual) if $chooseGroups;