summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2007-08-13 19:31:05 +0000
committerPascal Rigaux <pixel@mandriva.com>2007-08-13 19:31:05 +0000
commit2e901b9fd66c0cc7b43898944883e60044de1443 (patch)
tree27e178de1f760d178f093f364a1f2b6584aca1c7 /perl-install
parentdd1f89bd10b319273d3eeb4d7462f40da1e2d8f6 (diff)
downloaddrakx-2e901b9fd66c0cc7b43898944883e60044de1443.tar
drakx-2e901b9fd66c0cc7b43898944883e60044de1443.tar.gz
drakx-2e901b9fd66c0cc7b43898944883e60044de1443.tar.bz2
drakx-2e901b9fd66c0cc7b43898944883e60044de1443.tar.xz
drakx-2e901b9fd66c0cc7b43898944883e60044de1443.zip
allow not having a {val} field in summary entry
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/steps_gtk.pm9
1 files changed, 6 insertions, 3 deletions
diff --git a/perl-install/install/steps_gtk.pm b/perl-install/install/steps_gtk.pm
index 4590a39e2..cc1b9e459 100644
--- a/perl-install/install/steps_gtk.pm
+++ b/perl-install/install/steps_gtk.pm
@@ -576,9 +576,12 @@ sub summary_prompt {
$set_entry_labels = sub {
foreach (@$l) {
- my $t = $_->{val}() || '<span foreground="red">' . N("not configured") . '</span>';
- $t =~ s/&/&amp;/g;
- gtkset($_->{widget}, text_markup => $_->{label} . ' - ' . $t);
+ my $t;
+ if ($_->{val}) {
+ $t = $_->{val}() || '<span foreground="red">' . N("not configured") . '</span>';
+ $t =~ s/&/&amp;/g;
+ }
+ gtkset($_->{widget}, text_markup => $_->{label} . ($t ? " - $t" : ''));
}
};
$set_entry_labels->();