adapt to the fact that RPM_INSTALL_LANG is obsoloted. Now rpm uses %_install_langs in /etc/rpm/macros

1 files changed, 5 insertions, 5 deletions

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 6d48e82e1..b0b5fbd78 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} ||= [ $o->{lang} ];
-	my $all = $o->{langs}[0] eq 'all';
-	$o->{langs} = $o->ask_many_from_list('',
+	$o->{langs} ||= substr($o->{lang}, 0, 2);
+	my $all = $o->{langs} =~ /all/;
+	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 => $o->{langs},
+				values => lang::unpack_langs($o->{langs}),
 				sort => 1,				
 			       },
 			       { list => ['all'], label => sub { _("All") }, ref => sub { \$all }, shadow => 0 }) or goto &selectKeyboard;
-	$o->{langs} = [ 'all' ] if $all;
+	$o->{langs} = $all ? 'all' : lang::pack_langs($l);
     }
     install_steps::selectKeyboard($o);
 }