diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-24 07:16:01 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-08-24 07:16:01 +0000 |
| commit | 8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0 (patch) | |
| tree | 8539fd15f684aa81df1609f5a0b6eb8592235c36 /perl-install/lang.pm | |
| parent | b3f4a6839de1ecd67b9a1fb0189bf6fdf71b5491 (diff) | |
| download | drakx-backup-do-not-use-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar drakx-backup-do-not-use-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar.gz drakx-backup-do-not-use-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar.bz2 drakx-backup-do-not-use-8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0.tar.xz drakx-backup-do-not-use-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.pm | 15 |
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 |