summaryrefslogtreecommitdiffstats
path: root/perl-install/lang.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-08-24 07:16:01 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-08-24 07:16:01 +0000
commit8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0 (patch)
tree8539fd15f684aa81df1609f5a0b6eb8592235c36 /perl-install/lang.pm
parentb3f4a6839de1ecd67b9a1fb0189bf6fdf71b5491 (diff)
downloaddrakx-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar
drakx-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar.gz
drakx-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar.bz2
drakx-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar.xz
drakx-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.zip
(write) use newly introduced IM2packages() in order to install proper
packages depending on (locale, input method) tuple
Diffstat (limited to 'perl-install/lang.pm')
-rw-r--r--perl-install/lang.pm15
1 files changed, 15 insertions, 0 deletions
diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 8264182ee..de731a317 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -1031,6 +1031,21 @@ sub write {
if ($locale->{IM}) {
delete @$h{qw(GTK_IM_MODULE XIM XIM_PROGRAM XMODIFIERS)};
add2hash($h, $gtkqt_im{$locale->{IM}});
+ my @packages = IM2packages($locale->{IM});
+ if (@packages && $b_user_only) {
+ require interactive;
+ interactive->vnew->ask_warn(N("Warning"),
+ N("You should install the following packages: %s",
+ join(
+ #-PO: the following is used to combine packages names. eg: "initscripts, harddrake, yudit"
+ N(", "),
+ @packages,
+ ),
+ )
+ );
+ } elsif(@packages) {
+ do_pkgs_standalone->new->install((IM2packages($locale->{IM}), )) ;
+ }
}
#- deactivate translations on console for RTL languages