diff options
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index d7152f24b..2c367a3af 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -832,7 +832,10 @@ sub summaryBefore { sub summary_prompt { my ($o, $l, $check_complete) = @_; - ($_->{format}, $_->{val}) = ($_->{val}, '') foreach @$l; + foreach (@$l) { + my $val = $_->{val}; + ($_->{format}, $_->{val}) = (sub { $val->() || N("not configured") }, ''); + } $o->ask_from_({ messages => N("Summary"), @@ -948,14 +951,14 @@ sub summary { push @l, { group => N("Hardware"), label => N("Graphical interface"), - val => sub { $o->{raw_X} ? Xconfig::various::to_string($o->{raw_X}) : N("not configured") }, + val => sub { $o->{raw_X} ? Xconfig::various::to_string($o->{raw_X}) : '' }, clicked => sub { configureX($o, 'expert') }, }; push @l, { group => N("Network & Internet"), label => N("Network"), - val => sub { $o->{netcnx}{type} || N("not configured") }, + val => sub { $o->{netcnx}{type} }, clicked => sub { require network::netconnect; network::netconnect::main($o->{prefix}, $o->{netcnx} ||= {}, $o->{netc}, $o->{mouse}, $o, $o->{intf}, 0, 0, 1); |