summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-09-01 21:10:35 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-09-01 21:10:35 +0000
commit863a0345a2f895d35046f35d97f473e825906687 (patch)
treee04cae4c0cfa6b0e481cae4d976ecb32c30e6dea /perl-install/install_steps_interactive.pm
parent608738174ef563cd88f95f53683f73f316b8f552 (diff)
downloaddrakx-863a0345a2f895d35046f35d97f473e825906687.tar
drakx-863a0345a2f895d35046f35d97f473e825906687.tar.gz
drakx-863a0345a2f895d35046f35d97f473e825906687.tar.bz2
drakx-863a0345a2f895d35046f35d97f473e825906687.tar.xz
drakx-863a0345a2f895d35046f35d97f473e825906687.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index ee35a5282..c7657b187 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -129,7 +129,7 @@ are you ready to answer that kind of questions?"),
$o->{isUpgrade} = $o->selectInstallClass1($verifInstallClass,
first(list2kv(@c)), ${{reverse %c}}{$::beginner ? "beginner" : $::expert ? "expert" : "specific"},
- [ __("Install"), __("Upgrade") ], $o->{isUpgrade} ? "Upgrade" : "Install") eq "Upgrade";
+ [ __("Install"), __("Rescue") ], $o->{isUpgrade} ? "Rescue" : "Install") eq "Rescue";
if ($::corporate || $::beginner) {
delete $o->{installClass};
@@ -194,10 +194,14 @@ sub ask_mntpoint_s {
@fstab = @$fstab if @fstab == 0;
die _("no available partitions") if @fstab == 0;
+
if (@fstab == 1) {
$fstab[0]{mntpoint} = '/';
} else {
install_any::suggest_mount_points($o->{hds}, $o->{prefix}, 'uniq');
+
+ log::l("default mntpoint $_->{mntpoint}") foreach @fstab;
+
$o->ask_from_entries_refH('',
_("Choose the mount points"),
[ map { partition_table_raw::description($_) =>