From a3d551a6468bd1799197187d185689e3ac9cb4db Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 4 Aug 2000 00:29:32 +0000 Subject: no_comment --- perl-install/pkgs.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index af23fe99d..dc3813baf 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -36,6 +36,7 @@ use c; ); #- HACK: rating += 50 for some packages (like kapm, cf install_any::setPackages) #- HACK: rating += 10 if the group is selected and it is not a kde package (aka name !~ /^k/) +#- HACK: rating += 1 if the group is selected and it is a kde package (aka name !~ /^k/) @skip_list = qw( @@ -706,10 +707,12 @@ sub setSelectedFromCompssList { selectPackage($packages, $p, 0, \%newSelection); #- this enable an incremental total size. + my $old_nb = $nb; foreach (grep { $newSelection{$_} } keys %newSelection) { $nb += packageSize($packages->[0]{$_}); } if ($max_size && $nb > $max_size) { + $nb = $old_nb; $min_level = $p->{values}[$ind]; last; } @@ -721,6 +724,19 @@ sub setSelectedFromCompssList { $ind, $min_level; } +#- usefull to know the size it would take for a given min_level/max_size +#- just saves the selected packages, call setSelectedFromCompssList and restores the selected packages +sub fakeSetSelectedFromCompssList { + my ($compssListLevels, $packages, $min_level, $max_size, $install_class) = @_; + my @l = values %{$packages->[0]}; + my @flags = map { pkgs::packageFlagSelected($_) } @l; + my (undef, $level) = setSelectedFromCompssList($compssListLevels, $packages, $min_level, $max_size, $install_class); + my $size = pkgs::selectedSize($packages); + mapn { pkgs::packageSetFlagSelected(@_) } \@l, \@flags; + $size, $level; +} + + sub init_db { my ($prefix, $isUpgrade) = @_; -- cgit v1.2.1