diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2000-09-22 22:28:16 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2000-09-22 22:28:16 +0000 |
| commit | 046c5b383794bfe42480723d32bbb91380671bab (patch) | |
| tree | e01726159329239568857533cde6549f97ab5531 /perl-install/pkgs.pm | |
| parent | f27e0ad435eef7902c35562b75b03fb11f4e5c8d (diff) | |
| download | drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar.gz drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar.bz2 drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.tar.xz drakx-backup-do-not-use-046c5b383794bfe42480723d32bbb91380671bab.zip | |
no_comment
Diffstat (limited to 'perl-install/pkgs.pm')
| -rw-r--r-- | perl-install/pkgs.pm | 13 |
1 files changed, 7 insertions, 6 deletions
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; } |