summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-07-31 19:17:23 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-07-31 19:17:23 +0000
commit69dd828cf65886ada7ede22c495d14f84c8c593a (patch)
tree0cbd9edf9a6453e9b8c7d7eb9618dfee54ea8c9f /perl-install/install_steps_interactive.pm
parent1fcb9d98f6f5069c77db9769993a77936f7d4519 (diff)
downloaddrakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar
drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar.gz
drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar.bz2
drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.tar.xz
drakx-69dd828cf65886ada7ede22c495d14f84c8c593a.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 13b3558a0..17961735d 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -79,8 +79,8 @@ sub selectKeyboard($) {
my %langs; $langs{$_} = 1 foreach @{$o->{langs}};
$o->ask_many_from_list_ref('',
_("You can choose other languages that will be available after install"),
- [ lang::list() ], [ map { \$langs{lang::text2lang($_)} } lang::list() ] ) or goto &selectKeyboard;
- $o->{langs} = [ grep { $langs{$_} } keys %langs ];
+ [ lang::list(), 'All' ], [ map { \$langs{$_} } (map { lang::text2lang($_) } lang::list()), 'all' ] ) or goto &selectKeyboard;
+ $o->{langs} = $langs{all} ? [ 'all' ] : [ grep { $langs{$_} } keys %langs ];
}
install_steps::selectKeyboard($o);
}