summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-29 17:31:16 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-29 17:31:16 +0000
commit909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7 (patch)
treea663c431f0076f3c03c555663ea8a5f326b367fe /perl-install/install_steps_interactive.pm
parent17675cf6acfe4d3b9e092284484371dc3bdcc7e1 (diff)
downloaddrakx-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar
drakx-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar.gz
drakx-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar.bz2
drakx-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.tar.xz
drakx-909cfffcd84cb05d8b4c5ab5057bbdcfb230fee7.zip
add localedrake (not tested)
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm18
1 files changed, 1 insertions, 17 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 3954d9ad1..d62643298 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -51,23 +51,7 @@ sub charsetChanged {}
sub selectLanguage {
my ($o) = @_;
- $o->ask_from_(
- { messages => _("Please, choose a language to use."),
- advanced_messages => _("You can choose other languages that will be available after install"),
- callbacks => {
- focus_out => sub { $o->{langs}{$o->{lang}} = 1 },
- },
- },
- [ { val => \$o->{lang}, separator => '|',
- format => \&lang::lang2text, list => [ lang::list() ] },
- (map {;
- { val => \$o->{langs}{$_->[0]}, type => 'bool', disabled => sub { $o->{langs}{all} },
- text => $_->[1], advanced => 1,
- }
- } sort { $a->[1] cmp $b->[1] } map { [ $_, lang::lang2text($_) ] } lang::list()),
- { val => \$o->{langs}{all}, type => 'bool', text => _("All"), advanced => 1 }
- ]);
-
+ any::selectLanguage($o, $o->{lang}, $o->{langs} ||= {});
install_steps::selectLanguage($o);
$o->charsetChanged;