From 0c1d3eef434cb424ea05e483e9d58bb9d1456e50 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Tue, 18 Sep 2012 10:39:52 +0000
Subject: save the untranslated license early

---
 perl-install/install/install2.pm       | 3 ++-
 perl-install/standalone/finish-install | 3 +++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 1019e2809..24d99cb03 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -27,6 +27,7 @@ use log;
 use fs;
 use fs::any;
 use fs::mount;
+use messages;
 
 #-#######################################################################################
 #-$O
@@ -65,7 +66,7 @@ $o = $::o = {
 	    #-   eth0 => { DEVICE => "eth0", IPADDR => '1.2.3.4', NETMASK => '255.255.255.128' }
 	    #- },
 	    },
-
+    untranslated_license => messages::main_license_raw(),
 #-step : the current one
 #-prefix
 #-mouse
diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index 6dd358bed..fc91491cd 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -12,6 +12,7 @@ use any;
 use authentication;
 use network::network;
 use security::level;
+use messages;
 
 my $conf_file = '/etc/sysconfig/finish-install';
 my %conf = getVarsFromSh($conf_file);
@@ -24,6 +25,8 @@ network::network::read_net_conf($net);
 
 $::isWizard = 1;
 my $in = 'interactive'->vnew('su');
+$in->{untranslated_license} = messages::main_license_raw();
+
 any::set_wm_hints_if_needed($in);
 
 sub get_conf {
-- 
cgit v1.2.1