summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:25:43 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:25:43 +0000
commit1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd (patch)
treeabc9e84b38a2128e99a968869ee5e5d86304731d
parent2a9cdb5a55610a9294b6ad9afb63da584e5fbef0 (diff)
downloaddrakx-backup-do-not-use-1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd.tar
drakx-backup-do-not-use-1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd.tar.gz
drakx-backup-do-not-use-1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd.tar.bz2
drakx-backup-do-not-use-1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd.tar.xz
drakx-backup-do-not-use-1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd.zip
(chooseGroups) remember values when clicking "previous"
-rw-r--r--perl-install/install/NEWS3
-rw-r--r--perl-install/install/steps_interactive.pm5
2 files changed, 6 insertions, 2 deletions
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index fcfe8cc5a..2e2abff44 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,6 @@
+- package group selection:
+ o remember minimal install values when clicking "previous"
+
Version 14.22 - 15 May 2012
- final banner
diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm
index c40e3ffd6..2ead20c9c 100644
--- a/perl-install/install/steps_interactive.pm
+++ b/perl-install/install/steps_interactive.pm
@@ -2,6 +2,7 @@ package install::steps_interactive; # $Id: steps_interactive.pm 267011 2010-03-1
use strict;
+use feature 'state';
our @ISA = qw(install::steps);
@@ -580,8 +581,8 @@ 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) {
my $docs = !$o->{excludedocs};
- my $minimal;
- my $suggests;
+ state $minimal;
+ my $suggests = $o->{no_suggests};
$o->ask_from_({ title => N("Type of install"),
message => N("You have not selected any group of packages.