From 135cb580abfc873836a029b30f42ed9e5f836750 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 18 Feb 2004 17:08:01 +0000
Subject: selectlanguage: utf8 flag status is updated when user selects
 more/less languages; when user touches it, update is disabled, allowing
 andrej to have an en_GB + ru_RU install without utf8

---
 perl-install/any.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'perl-install/any.pm')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 3928c4b0b..75f657b0c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -623,11 +623,19 @@ sub selectLanguage {
 	my $sort_func = $using_images ? \&lang::l2transliterated : \&lang::l2name;
 	@langs = map { $_->[0] } sort { $sort_func->($a->[2]) cmp $sort_func->($b->[2]) } @langs;
 
+        my $last_utf8 = $in->{locale}{utf8};
 	add2hash($common, { cancel => '',
 			    advanced_messages => formatAlaTeX(N("Mandrake Linux can support multiple languages. Select
 the languages you would like to install. They will be available
 when your installation is complete and you restart your system.")),
-			    callbacks => { advanced => sub { $langs->{$listval2val->($lang)} = 1 } } });
+			    callbacks => { advanced => sub { $langs->{$listval2val->($lang)} = 1 },
+                                           changed => sub {
+                                               if ($last_utf8 == $in->{locale}{utf8}) {
+                                                   $last_utf8 = $in->{locale}{utf8} = lang::utf8_should_be_needed({ lang => $listval2val->($lang), langs => $langs });
+                                               } else {
+                                                   $last_utf8 = -1;  #- disable auto utf8 once touched
+                                               }
+                                           } } });
 			    
 	$in->ask_from_($common,
 	[ { val => \$lang, separator => '|', 
-- 
cgit v1.2.1