diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/any.pm | 1 | ||||
| -rw-r--r-- | perl-install/install/NEWS | 3 | ||||
| -rwxr-xr-x | perl-install/standalone/display_release_notes.pl | 8 |
3 files changed, 12 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index bcbb990a0..1d5eb104b 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -1078,6 +1078,7 @@ sub get_release_notes { sub run_display_release_notes { my ($release_notes) = @_; output('/tmp/release_notes.html', $release_notes); + local $ENV{LC_ALL} = $::o->{locale}{lang} || 'C'; run_program::raw({ detach => 1 }, '/usr/bin/display_release_notes.pl'); } diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS index 11bff0e4f..dd80cdaeb 100644 --- a/perl-install/install/NEWS +++ b/perl-install/install/NEWS @@ -1,3 +1,6 @@ +- release notes dialog: + o fix untranslated button + Version 16.26.4 - 22 January 2014 - debug image: 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); |