summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-01-06 20:46:54 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-01-06 20:46:54 +0000
commit3e0c06ffc9c8e32dfeb433490f4e23b59144a48d (patch)
tree96796dbb918dd52c5bb1b0c700d356efc0558ad6 /perl-install/install_steps.pm
parent2c5cf855dfc78482ce540ec7c21250d34ad5d81e (diff)
downloaddrakx-backup-do-not-use-3e0c06ffc9c8e32dfeb433490f4e23b59144a48d.tar
drakx-backup-do-not-use-3e0c06ffc9c8e32dfeb433490f4e23b59144a48d.tar.gz
drakx-backup-do-not-use-3e0c06ffc9c8e32dfeb433490f4e23b59144a48d.tar.bz2
drakx-backup-do-not-use-3e0c06ffc9c8e32dfeb433490f4e23b59144a48d.tar.xz
drakx-backup-do-not-use-3e0c06ffc9c8e32dfeb433490f4e23b59144a48d.zip
selectInstallClass now automatically detect if an existing install is there,
and propose update or install based on this
Diffstat (limited to 'perl-install/install_steps.pm')
-rw-r--r--perl-install/install_steps.pm22
1 files changed, 12 insertions, 10 deletions
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 7f20275cc..cc6bf5c9a 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -121,9 +121,7 @@ sub selectKeyboard {
}
#------------------------------------------------------------------------------
sub acceptLicence {}
-sub selectPath {}
-#------------------------------------------------------------------------------
-sub selectInstallClass {}
+
#------------------------------------------------------------------------------
sub setupSCSI {
my ($o) = @_;
@@ -131,6 +129,17 @@ sub setupSCSI {
modules::load_ide();
modules::load_category('bus/firewire');
modules::load_category('disk/scsi|hardware_raid');
+
+ install_any::getHds($o, $o);
+}
+
+#------------------------------------------------------------------------------
+sub selectInstallClass {
+ if ($o->{partitioning}{use_existing_root} || $o->{isUpgrade}) {
+ # either one root is defined (and all is ok), or we take the first one we find
+ my $p = fsedit::get_root_($o->{fstab}) || first(install_any::find_root_parts($o->{fstab}, $o->{prefix})) or die;
+ install_any::use_root_part($o->{all_hds}, $p, $o->{prefix});
+ }
}
#------------------------------------------------------------------------------
@@ -183,13 +192,6 @@ sub doPartitionDisksAfter {
sub doPartitionDisks {
my ($o) = @_;
- install_any::getHds($o);
-
- if ($o->{partitioning}{use_existing_root} || $o->{isUpgrade}) {
- # either one root is defined (and all is ok), or we take the first one we find
- my $p = fsedit::get_root_($o->{fstab}) || first(install_any::find_root_parts($o->{fstab}, $o->{prefix})) or die;
- install_any::use_root_part($o->{all_hds}, $p, $o->{prefix});
- }
if ($o->{partitioning}{auto_allocate}) {
fsedit::auto_allocate($o->{all_hds}, $o->{partitions});
}