From deddef1f4746139ed4ef994d8f053bf39d4d6384 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Sat, 17 Jul 1999 16:45:33 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_stdio.pm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'perl-install/install_steps_stdio.pm')

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];
     }
 }
-- 
cgit v1.2.1