From 0640ea0a3d7b3261546f541a4556240e318b4141 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Wed, 22 Jan 2014 01:58:19 +0100
Subject: fix untranslated button

---
 perl-install/standalone/display_release_notes.pl | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'perl-install/standalone/display_release_notes.pl')

diff --git a/perl-install/standalone/display_release_notes.pl b/perl-install/standalone/display_release_notes.pl
index 4f5f19bb4..f6a2fab1c 100755
--- a/perl-install/standalone/display_release_notes.pl
+++ b/perl-install/standalone/display_release_notes.pl
@@ -22,11 +22,19 @@ use lib qw(/usr/lib/libDrakX);
 use interactive;
 use any;
 use MDK::Common;
+use lang;
 
 my $in = 'interactive'->vnew('su');
 # so that we popup above drakx:
 any::set_wm_hints_if_needed($in);
 
+# Fake enough $o for retrieving the proper translation:
+$::o = $in;
+$::o->{locale}{lang} = $ENV{LC_ALL};
+# must have a value so that we look at locale_special/ :
+$::prefix = '/';
+lang::set($::o->{locale});
+
 # not very safe but we run in a restricted environment anyway:
 my $release_notes = cat_utf8('/tmp/release_notes.html');
 any::display_release_notes($in, $release_notes);
-- 
cgit v1.2.1