From 34e4d7a15547b210a6c6a98e9f2c8c9b089f75c9 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Fri, 19 Sep 2008 13:02:20 +0000
Subject: - add a special license for google programs (only for "Powerpack"
 product)

---
 perl-install/any.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

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

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 0e1bc828d..a1b691e32 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -935,7 +935,7 @@ sub display_release_notes {
 }
 
 sub acceptLicense {
-    my ($in) = @_;
+    my ($in, $google) = @_;
     require messages;
 
     my $ext = $in->isa('interactive::gtk') ? '.html' : '.txt';
@@ -957,10 +957,15 @@ sub acceptLicense {
 
     my $r = $::testing ? 'Accept' : 'Refuse';
 
+    my $license = join("\n\n\n",
+		       messages::main_license($google, $google),
+		       messages::warning_about_patents(),
+		       if_($google, messages::google_provisions()));
+
     $in->ask_from_({ title => N("License agreement"), 
 		    focus_first => 1,
 		     cancel => N("Quit"),
-		     messages => formatAlaTeX(messages::main_license() . "\n\n\n" . messages::warning_about_patents()),
+		     messages => formatAlaTeX($license),
 		     interactive_help_id => 'acceptLicense',
 		     callbacks => { ok_disabled => sub { $r eq 'Refuse' } },
 		   },
-- 
cgit v1.2.1