diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2007-08-13 19:31:05 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2007-08-13 19:31:05 +0000 |
| commit | 2e901b9fd66c0cc7b43898944883e60044de1443 (patch) | |
| tree | 27e178de1f760d178f093f364a1f2b6584aca1c7 /perl-install | |
| parent | dd1f89bd10b319273d3eeb4d7462f40da1e2d8f6 (diff) | |
| download | drakx-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.pm | 9 |
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/&/&/g; - gtkset($_->{widget}, text_markup => $_->{label} . ' - ' . $t); + my $t; + if ($_->{val}) { + $t = $_->{val}() || '<span foreground="red">' . N("not configured") . '</span>'; + $t =~ s/&/&/g; + } + gtkset($_->{widget}, text_markup => $_->{label} . ($t ? " - $t" : '')); } }; $set_entry_labels->(); |