From 046c5b383794bfe42480723d32bbb91380671bab Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Fri, 22 Sep 2000 22:28:16 +0000 Subject: no_comment --- perl-install/pkgs.pm | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) (limited to 'perl-install/pkgs.pm') diff --git a/perl-install/pkgs.pm b/perl-install/pkgs.pm index 593e574ef..62107d72c 100644 --- a/perl-install/pkgs.pm +++ b/perl-install/pkgs.pm @@ -734,14 +734,15 @@ sub setSelectedFromCompssList { #- 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) = @_; +sub saveSelected { + my ($packages) = @_; 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; + [ $packages, \@l, \@flags ]; +} +sub restoreSelected { + my ($packages, $l, $flags) = @{$_[0]}; + mapn { pkgs::packageSetFlagSelected(@_) } $l, $flags; } -- cgit v1.2.1