summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_stdio.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-07-24 19:40:11 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-07-24 19:40:11 +0000
commit56b374075f45355184b2927cc2f24262dc7e6c21 (patch)
tree0131cb0b14564bedd750bae2dce222b46b6deecd /perl-install/install_steps_stdio.pm
parent5a632fe532f355a2583970fefb2ed8ceec6c9460 (diff)
downloaddrakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar.gz
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar.bz2
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.tar.xz
drakx-56b374075f45355184b2927cc2f24262dc7e6c21.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_stdio.pm')
-rw-r--r--perl-install/install_steps_stdio.pm22
1 files changed, 15 insertions, 7 deletions
diff --git a/perl-install/install_steps_stdio.pm b/perl-install/install_steps_stdio.pm
index 4c4c74c84..22e171c22 100644
--- a/perl-install/install_steps_stdio.pm
+++ b/perl-install/install_steps_stdio.pm
@@ -28,8 +28,8 @@ sub leavingStep {
}
sub chooseLanguage($) {
- my $lang = lang::text2lang(ask_from_list('Language',
- 'Which language do you want?',
+ my $lang = lang::text2lang(ask_from_list("Language", # no use translating this
+ "Which language do you want?",
[ lang::list() ]));
run_program::run('xmodmap', "/usr/bin/$lang.map");
$lang;
@@ -39,6 +39,14 @@ sub selectInstallOrUpgrade($) {
ask_yesorno('Install/Upgrade', 'Do you want to upgrade an already installed Mandrake?');
}
+sub selectInstallClass($@) {
+ my ($o, @classes) = @_;
+ my $c = ask_from_list(_("Install Class"),
+ _("What type of user will you have?"),
+ [ map { translate($_) } @classes ]);
+ untranslate($c, @classes);
+}
+
sub rebootNeeded($) {
my ($o) = @_;
ask_warn('', "You need to reboot for the partition table modifications to take place");
@@ -57,14 +65,14 @@ sub choosePartitionsToFormat($$) {
}
sub choosePackages($$$) {
- my ($o, $packages, $comps) = @_;
+ my ($o, $packages, $compss) = @_;
my @r = ask_many_from_list('',
"Choose the packages you want to install",
- [ map { $_->{name} } @$comps ],
- [ map { $_->{selected} } @$comps ]);
+ [ map { $_->{name} } @$compss ],
+ [ map { $_->{selected} } @$compss ]);
- for (my $i = 0; $i < @$comps; $i++) {
- $comps->[$i]->{selected} = $r[$i];
+ for (my $i = 0; $i < @$compss; $i++) {
+ $compss->[$i]->{selected} = $r[$i];
}
}