summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>1999-09-28 15:53:43 +0000
committerFrancois Pons <fpons@mandriva.com>1999-09-28 15:53:43 +0000
commit99c9b0680ce235c7e5bb6d18a8154a147e70947c (patch)
treee42f58e16872cdf6f4030936f9050ebc5bb99b20 /perl-install/install_steps_interactive.pm
parent4d1e2e9740a607609d497adf72dbef43e9f1a4c8 (diff)
downloaddrakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.gz
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.bz2
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.xz
drakx-99c9b0680ce235c7e5bb6d18a8154a147e70947c.zip
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm13
1 files changed, 11 insertions, 2 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 6ccbb8451..213347628 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -75,7 +75,16 @@ sub selectPath($) {
[ __("Install"), __("Upgrade") ],
$o->{isUpgrade} ? "Upgrade" : "Install") eq "Upgrade";
install_steps::selectPath($o);
-
+}
+#------------------------------------------------------------------------------
+sub selectRootPartition($@) {
+ my ($o,@partitions) = @_;
+ $o->{upgradeRootPartition} =
+ $o->ask_from_list_(_("Root Partition"),
+ _("What is the root partition of your system?"),
+ [ @partitions ], $o->{upgradeRootPartitions});
+#- TODO check choice, then mount partition in $o->{prefix} and autodetect.
+#- install_steps::selectRootPartition($o);
}
#------------------------------------------------------------------------------
sub selectInstallClass($@) {
@@ -167,7 +176,7 @@ sub configureNetwork($) {
_("Do you want to configure LAN (not dialup) networking for your installed system?")) or $r = "Don't";
}
- if ($r =~ /^Don't/) {
+ if ($r =~ /^Don\'t/) {
$o->{netc}{NETWORKING} = "false";
} elsif ($r !~ /^Keep/) {
$o->setup_thiskind('net', !$::expert, 1);