summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-09-03 18:55:06 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-09-03 18:55:06 +0000
commit7f2bd60493fd6a5830c5687d773007a3df74a914 (patch)
treedbe863c7b1bae8eaece956da9f3e61a4d40346df /perl-install
parent3a93e932ca7e557ba6f62f9764acde9fec97051d (diff)
downloaddrakx-7f2bd60493fd6a5830c5687d773007a3df74a914.tar
drakx-7f2bd60493fd6a5830c5687d773007a3df74a914.tar.gz
drakx-7f2bd60493fd6a5830c5687d773007a3df74a914.tar.bz2
drakx-7f2bd60493fd6a5830c5687d773007a3df74a914.tar.xz
drakx-7f2bd60493fd6a5830c5687d773007a3df74a914.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install2.pm2
-rw-r--r--perl-install/install_any.pm3
2 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/install2.pm b/perl-install/install2.pm
index af172d770..9f416a957 100644
--- a/perl-install/install2.pm
+++ b/perl-install/install2.pm
@@ -378,7 +378,7 @@ sub formatPartitions {
sub choosePackages {
install_any::setPackages($o) if $_[1] == 1;
$o->choosePackages($o->{packages}, $o->{compss});
- $o->{packages}{$_}{base} = 1 foreach @{$o->{base}};
+ $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}};
}
sub doInstallStep {
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index a1109f68e..c813672b8 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -107,7 +107,8 @@ sub setPackages {
$o->{compssList} = pkgs::readCompssList($o->{packages});
push @{$o->{base}}, "kernel-smp" if smp::detect();
- $o->{packages}{$_}{base} = 1 foreach @{$o->{base}};
+ $o->{packages}{$_}{base} =
+ $o->{packages}{$_}{selected} = 1 foreach @{$o->{base}};
pkgs::setShowFromCompss($o->{compss}, $o->{installClass}, $o->{lang});
@_; $o->SUPER::enteringStep($step); banner(translate($o->{steps}{$step}{text})); } sub exitInstall { &install_steps_interactive::exitInstall; interactive_newt::end; } #-###################################################################################### #- Steps Functions #-###################################################################################### sub selectLanguage { my ($o) = @_; $o->SUPER::selectLanguage; lang::load_console_font($o->{lang}); } 1;