From 8332a57ed7973eaa52e6c84dd7d4cb5c0ac896c0 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Tue, 24 Aug 2004 07:16:01 +0000
Subject: (write) use newly introduced IM2packages() in order to install proper
 packages depending on (locale, input method) tuple

---
 perl-install/lang.pm | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

(limited to 'perl-install')

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
-- 
cgit v1.2.1