From 02e83f907e55d865ff3225c8661eb4e49c413184 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 6 Mar 2007 16:29:53 +0000
Subject: (pkgs_provider) if "pure_updates" option is given, do not pass over
 installable packages

---
 Rpmdrake/gui.pm | 4 ++--
 1 file 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)
-- 
cgit v1.2.1