From 2e901b9fd66c0cc7b43898944883e60044de1443 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Mon, 13 Aug 2007 19:31:05 +0000
Subject: allow not having a {val} field in summary entry

---
 perl-install/install/steps_gtk.pm | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'perl-install/install')

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->();
-- 
cgit v1.2.1