summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2000-04-25 12:14:43 +0000
committerPascal Rigaux <pixel@mandriva.com>2000-04-25 12:14:43 +0000
commitc32e8253a38d505fa0ad1802b9062b2ed96acbab (patch)
tree061678d3f23a127768fdf46c6023090e9d568df6 /perl-install
parentf26262de85224f5fb42f994b325a96e1ad90dbac (diff)
downloaddrakx-c32e8253a38d505fa0ad1802b9062b2ed96acbab.tar
drakx-c32e8253a38d505fa0ad1802b9062b2ed96acbab.tar.gz
drakx-c32e8253a38d505fa0ad1802b9062b2ed96acbab.tar.bz2
drakx-c32e8253a38d505fa0ad1802b9062b2ed96acbab.tar.xz
drakx-c32e8253a38d505fa0ad1802b9062b2ed96acbab.zip
no_comment
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/ChangeLog7
-rw-r--r--perl-install/install_steps_interactive.pm2
-rw-r--r--perl-install/pkgs.pm2
3 files changed, 8 insertions, 3 deletions
diff --git a/perl-install/ChangeLog b/perl-install/ChangeLog
index e2ecc7669..523967e70 100644
--- a/perl-install/ChangeLog
+++ b/perl-install/ChangeLog
@@ -1,3 +1,10 @@
+2000-04-25 Pixel <pixel@mandrakesoft.com>
+
+ * pkgs.pm (setSelectedFromCompssList): remove the hack for min
+ mark 25 in beginner
+ * install_steps_interactive.pm (choosePackages): set $min_mark to
+ 25 in beginner
+
2000-04-24 Pixel <pixel@mandrakesoft.com>
* install_steps_interactive.pm (setupXfree): add a yesorno
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index aca54a4cb..dad9f29f7 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -278,7 +278,7 @@ sub choosePackages {
$o->chooseGroups($packages, $compssUsers, $compssUsersSorted, \$individual) unless $::beginner || $::corporate;
- my $min_mark = 1;
+ my $min_mark = $::beginner ? 25 : 1;
my @l = values %{$packages->[0]};
my @flags = map { pkgs::packageFlagSelected($_) } @l;
pkgs::setSelectedFromCompssList($o->{compssListLevels}, $packages, $min_mark, 0, $o->{installClass});
diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm
index 7b273e5b7..5357c92e5 100644
--- a/perl-install/pkgs.pm
+++ b/perl-install/pkgs.pm
@@ -589,8 +589,6 @@ sub setSelectedFromCompssList {
my @values = map { $_->{values}[$ind] + (packageFlagUnskip($_) && packageName($_) !~ /^k/ ? 10 : 0) } @packages;
sort { $values[$b] <=> $values[$a] } 0 .. $#packages;
};
- #- select at least 25 for beginner installation.
- $min_level < 25 && $::beginner and $min_level = 25;
foreach (@places) {
my $p = $packages[$_];
next if packageFlagSkip($p);