summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/install2.pm3
-rwxr-xr-xperl-install/standalone/finish-install3
2 files changed, 5 insertions, 1 deletions
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 {