From 99c9b0680ce235c7e5bb6d18a8154a147e70947c Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Tue, 28 Sep 1999 15:53:43 +0000
Subject: *** empty log message ***

---
 perl-install/install_steps_interactive.pm | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

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

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