diff options
| author | Thierry Vignaud <tv@mandriva.org> | 2007-03-06 16:29:53 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mandriva.org> | 2007-03-06 16:29:53 +0000 |
| commit | 02e83f907e55d865ff3225c8661eb4e49c413184 (patch) | |
| tree | 5d635f7c9825e5b22ad3831d3de52f191a5bb820 /Rpmdrake | |
| parent | 2bcd6e8750fe7b31847b516410d0e98f8c4c8ef8 (diff) | |
| download | rpmdrake-02e83f907e55d865ff3225c8661eb4e49c413184.tar rpmdrake-02e83f907e55d865ff3225c8661eb4e49c413184.tar.gz rpmdrake-02e83f907e55d865ff3225c8661eb4e49c413184.tar.bz2 rpmdrake-02e83f907e55d865ff3225c8661eb4e49c413184.tar.xz rpmdrake-02e83f907e55d865ff3225c8661eb4e49c413184.zip | |
(pkgs_provider) if "pure_updates" option is given, do not pass over installable packages
Diffstat (limited to 'Rpmdrake')
| -rw-r--r-- | Rpmdrake/gui.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm index 32d37229..e6a4273e 100644 --- a/Rpmdrake/gui.pm +++ b/Rpmdrake/gui.pm @@ -397,7 +397,7 @@ sub switch_pkg_list_mode { } sub pkgs_provider { - my ($options, $mode) = @_; + my ($options, $mode, %options) = @_; return if !$mode; my $h = &get_pkgs($urpm, $options); # was given (1, @_) for updates ($urpm, $descriptions) = @$h{qw(urpm update_descr)}; @@ -406,7 +406,7 @@ sub pkgs_provider { installed => sub { $pkgs = $h->{installed} }, non_installed => sub { $pkgs = $h->{installable} }, all_updates => sub { - my @pkgs = grep { my $p = $h->{installable}{$_}; $p->{pkg} && !$p->{selected} && $p->{pkg}->flag_installed && $p->{pkg}->flag_upgrade } keys %{$h->{installable}}; + my @pkgs = $options{pure_updates} ? () : (grep { my $p = $h->{installable}{$_}; $p->{pkg} && !$p->{selected} && $p->{pkg}->flag_installed && $p->{pkg}->flag_upgrade } keys %{$h->{installable}}); $pkgs = { (map { $_ => $h->{updates}{$_} } keys %{$h->{updates}}), (map { $_ => $h->{installable}{$_} } @pkgs) |