From c8a2cc1ef3aa1eda08a35f5e602efcbcd8c5ce51 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Mon, 18 Aug 2008 15:45:36 +0000
Subject: (acceptLicense) add 'Do you accept this license' question

---
 perl-install/any.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 98dee7b02..4fea033cb 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -920,7 +920,10 @@ sub acceptLicense {
                    more_buttons => [ [ N("Release Notes"), sub { display_release_notes($o) }, 1 ] ]),
 		     callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
 		   },
-		   [ { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ])
+
+		   [
+                       { label => N("Do you accept this license ?") },
+                       { list => [ N_("Accept"), N_("Refuse") ], val => \$r, type => 'list', format => sub { translate($_[0]) } } ])
       or reboot($o);
 }
 
-- 
cgit v1.2.1