diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 1999-07-17 16:45:33 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 1999-07-17 16:45:33 +0000 |
| commit | deddef1f4746139ed4ef994d8f053bf39d4d6384 (patch) | |
| tree | 1b2ce28fc88f3b55e7dae2af56782ee6c849d775 /perl-install/install_steps_stdio.pm | |
| parent | 9f8734e27c9a88137a2933970b7a5962e37789da (diff) | |
| download | drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.gz drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.bz2 drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.tar.xz drakx-deddef1f4746139ed4ef994d8f053bf39d4d6384.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_stdio.pm')
| -rw-r--r-- | perl-install/install_steps_stdio.pm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm index 44de0dd60..9db9b2f9f 100644 --- a/perl-install/install_steps_stdio.pm +++ b/perl-install/install_steps_stdio.pm @@ -28,7 +28,9 @@ sub leavingStep { } sub chooseLanguage($) { - my $lang = ask_from_list('Language', 'Which language do you want?', [ lang::list() ]); + my $lang = lang::text2lang(ask_from_list('Language', + 'Which language do you want?', + [ lang::list() ])); run_program::run('xmodmap', "/usr/bin/$lang.map"); $lang; } @@ -56,13 +58,12 @@ sub choosePartitionsToFormat($$) { sub choosePackages($$$) { my ($o, $packages, $comps) = @_; - my @comps = values %$comps; my @r = ask_many_from_list('', "Choose the packages you want to install", - [ map { $_->{name} } @comps ], - [ map { $_->{selected} } @comps ]); + [ map { $_->{name} } @$comps ], + [ map { $_->{selected} } @$comps ]); - for (my $i = 0; $i < @comps; $i++) { + for (my $i = 0; $i < @$comps; $i++) { $comps[$i]->{selected} = $r[$i]; } } |