summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/steps_interactive.pm7
2 files changed, 8 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 890be3aae..1aee61891 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- fix offering "selecting individual packages" when pressing "previous" after
+ selecting package groups
+
Version 14.51 - 16 November 2012
- retrieve package descriptions from XML meta-data instead of from huge hdlists
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index 65962ad33..142b87676 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -584,7 +584,9 @@ sub chooseGroups {
install::any::unselectMostPackages($o) if $unselect_all;
#- if no group have been chosen, ask for using base system only, or no X, or normal.
- offer_minimal_options($o) if !any { $_->{selected} } @$compssUsers;
+ if (!any { $_->{selected} } @$compssUsers) {
+ offer_minimal_options($o) or goto &chooseGroups;
+ }
}
1;
}
@@ -606,7 +608,7 @@ Please choose the minimal installation you want:"),
{ 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)") },
],
- ) or return &chooseGroups;
+ ) or return 0;
if ($minimal) {
$o->{rpmsrate_flags_chosen}{CAT_X} = $docs = $suggests = 0;
@@ -619,6 +621,7 @@ 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 {