diff options
| author | Francois Pons <fpons@mandriva.com> | 2002-09-10 09:59:50 +0000 |
|---|---|---|
| committer | Francois Pons <fpons@mandriva.com> | 2002-09-10 09:59:50 +0000 |
| commit | 58bc7312b62acc3253708c68ed60951e19522a5e (patch) | |
| tree | 42bd2ff6e8a6b7eebce0cf0341f17b07f1dadbdc /perl-install | |
| parent | 91562f77629d09b715e19e43bf7ea9e0df39d19a (diff) | |
| download | drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar.gz drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar.bz2 drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.tar.xz drakx-backup-do-not-use-58bc7312b62acc3253708c68ed60951e19522a5e.zip | |
avoid removing all packages during upgrade (safe guard).
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/install_steps_interactive.pm | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm index f2021a4ed..88086351d 100644 --- a/perl-install/install_steps_interactive.pm +++ b/perl-install/install_steps_interactive.pm @@ -487,7 +487,7 @@ sub choosePackages { #- this is done at the very beginning to take into account #- selection of CD by user if using a cdrom. - $o->chooseCD($packages) if $o->{method} eq 'cdrom' && !$::oem; + $o->chooseCD($packages);#if $o->{method} eq 'cdrom' && !$::oem; my $availableC = install_steps::choosePackages(@_); my $individual = $::expert; @@ -632,7 +632,8 @@ sub chooseGroups { log::l("compssUsersChoice: " . (!$val{$_} && "not ") . "selected [$_] as [$o->{compssUsers}{$_}{label}]") foreach keys %val; - $unselect_all and install_any::unselectMostPackages($o); + #- do not try to deselect package (by default no groups are selected). + $o->{isUpgrade} or $unselect_all and install_any::unselectMostPackages($o); #- if no group have been chosen, ask for using base system only, or no X, or normal. unless ($o->{isUpgrade} || grep { $val{$_} } keys %val) { my $docs = !$o->{excludedocs}; @@ -702,7 +703,7 @@ sub chooseCD { my @mediumsDescr; my %mediumsDescr; - if (!common::usingRamdisk()) { + if (0 && !common::usingRamdisk()) { #- mono-cd in case of no ramdisk foreach (@mediums) { pkgs::mediumDescr($packages, $install_any::boot_medium) eq pkgs::mediumDescr($packages, $_) and next; @@ -726,7 +727,7 @@ sub chooseCD { #- if no other medium available or a poor beginner, we are choosing for him! #- note first CD is always selected and should not be unselected! - return if @mediumsDescr == () || !$::expert; + #return if @mediumsDescr == () || !$::expert; $o->set_help('chooseCD'); $o->ask_many_from_list('', |