diff options
author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:43 +0000 |
---|---|---|
committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:25:43 +0000 |
commit | 1edf76e0cdce9b6f3735be4c1cb35e987cbb4acd (patch) | |
tree | abc9e84b38a2128e99a968869ee5e5d86304731d | |
parent | 2a9cdb5a55610a9294b6ad9afb63da584e5fbef0 (diff) | |
download | drakx-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/NEWS | 3 | ||||
-rw-r--r-- | perl-install/install/steps_interactive.pm | 5 |
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. |