diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2001-01-04 19:34:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2001-01-04 19:34:30 +0000 |
| commit | 9887fe04751edf39e8389f2c3ec3f020b5e1c17d (patch) | |
| tree | 1bccff5e0f3a44ece23808f6a5dd427f1342a434 /perl-install/install_steps_interactive.pm | |
| parent | 490d1edddbdc645d015e8ad6debc72119d9de8db (diff) | |
| download | drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar.gz drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar.bz2 drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.tar.xz drakx-9887fe04751edf39e8389f2c3ec3f020b5e1c17d.zip | |
keep $o->{langs} unpacked to simplify things
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index 662884334..e20992315 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -160,18 +160,18 @@ sub selectKeyboard($) { if ($::expert && ref($o) !~ /newt/) { #- newt is buggy with big windows :-( $o->set_help('selectLangs'); - $o->{langs} ||= substr($o->{lang}, 0, 2); - my $all = $o->{langs} =~ /all/; + $o->{langs} ||= [ $o->{lang} ]; + my $all = member('all', @{$o->{langs}}); my $l = $o->ask_many_from_list('', _("You can choose other languages that will be available after install"), { list => [ lang::list() ], label => sub { lang::lang2text($_) }, - values => lang::unpack_langs($o->{langs}), + values => $o->{langs}, sort => 1, }, { list => ['all'], label => sub { _("All") }, ref => sub { \$all }, shadow => 0 }) or goto &selectKeyboard; - $o->{langs} = $all ? 'all' : lang::pack_langs($l); + $o->{langs} = [ $all ? 'all' : $l ]; } install_steps::selectKeyboard($o); } |