From 167bb8e6401f6df4535f28a61b6bfd7e20e5f5a7 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Wed, 23 May 2012 18:25:43 +0000 Subject: (chooseGroups) remember values when clicking "previous" --- perl-install/install/NEWS | 3 +++ perl-install/install/steps_interactive.pm | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) (limited to 'perl-install') 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. -- cgit v1.2.1