diff options
| author | Francois Pons <fpons@mandriva.com> | 1999-09-28 15:53:43 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 1999-09-28 15:53:43 +0000 |
| commit | 99c9b0680ce235c7e5bb6d18a8154a147e70947c (patch) | |
| tree | e42f58e16872cdf6f4030936f9050ebc5bb99b20 /perl-install/install_steps_interactive.pm | |
| parent | 4d1e2e9740a607609d497adf72dbef43e9f1a4c8 (diff) | |
| download | drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.gz drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.bz2 drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.tar.xz drakx-backup-do-not-use-99c9b0680ce235c7e5bb6d18a8154a147e70947c.zip | |
*** empty log message ***
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 13 |
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); |