summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2002-08-28 15:27:02 +0000
committerPascal Rigaux <pixel@mandriva.com>2002-08-28 15:27:02 +0000
commit7d4f7d28353b999a596562262afdb95f400c1a28 (patch)
treef3d540307eb68d14b01b6fb81c68e553600fef2e /perl-install/any.pm
parent0e32cf0bca437f291a60dba07180a78e7f04e419 (diff)
downloaddrakx-backup-do-not-use-7d4f7d28353b999a596562262afdb95f400c1a28.tar
drakx-backup-do-not-use-7d4f7d28353b999a596562262afdb95f400c1a28.tar.gz
drakx-backup-do-not-use-7d4f7d28353b999a596562262afdb95f400c1a28.tar.bz2
drakx-backup-do-not-use-7d4f7d28353b999a596562262afdb95f400c1a28.tar.xz
drakx-backup-do-not-use-7d4f7d28353b999a596562262afdb95f400c1a28.zip
(selectLanguage): fix the ugly use of focus_out for setting langs. Was completly rubbish in newt.
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 33e3cb17b..4e27cbaa4 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -843,7 +843,7 @@ sub selectLanguage {
the languages you would like to install. They will be available
when your installation is complete and you restart your system.")),
callbacks => {
- focus_out => sub { $langs->{$lang} = 1 },
+ advanced => sub { $langs->{$lang} = 1 },
},
},
[ { val => \$lang, separator => '|',
@@ -855,6 +855,7 @@ when your installation is complete and you restart your system.")),
} sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()),
{ val => \$langs->{all}, type => 'bool', text => _("All"), advanced => 1 }),
]) or return;
+ $langs->{$lang} = 1;
$lang;
}