add a meta packages view (#34510)

3 files changed, 6 insertions, 1 deletions

diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 8994767b..3295db1f 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -445,6 +445,7 @@ sub pkgs_provider {
             @filtered_pkgs = @{$h->{updates}}, @pkgs;
         },
         backports => sub { @filtered_pkgs = @{$h->{backports}} },
+        meta_pkgs => sub { @filtered_pkgs = @{$h->{meta_pkgs}} },
     );
     foreach my $importance (qw(bugfix security normal)) {
         $filter_methods{$importance} = sub {
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index f29efd7e..66c9dae2 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -456,11 +456,14 @@ sub get_pkgs {
     # so there's no need to list the same package several time:
     @installable_pkgs = uniq(difference2(\@installable_pkgs, \@updates));
 
+    my @meta_pkgs = (grep { /^task-/ } keys %all_pkgs);
+
     +{ urpm => $urpm,
        all_pkgs => \%all_pkgs,
        installed => \@installed_pkgs,
        installable => \@installable_pkgs,
        updates => \@updates,
+       meta_pkgs => \@meta_pkgs,
        update_descr => $update_descr,
        backports => \@backports,
    };
diff --git a/rpmdrake b/rpmdrake
index 18d7bcc3..ca8153bb 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -278,6 +278,7 @@ sub run_treeview_dialog {
                      by_group => N("All packages, by group"),
                  ),
                  ($is_backports ? (backports => N("Backports")) : ()),
+                 meta_pkgs => N("Meta packages"),
                  all_updates => N("All updates"),
                  security => N("Security updates"),
                  bugfix => N("Bugfixes updates"),
@@ -298,7 +299,7 @@ sub run_treeview_dialog {
     );
     my $old_value;
     my $cbox = gtksignal_connect(Gtk2::ComboBox->new_with_strings([ @modes{'all', if_($compssUsers, 'mandrake_choices'),
-                                                                              qw(installed non_installed all_updates security bugfix normal),
+                                                                              qw(meta_pkgs installed non_installed all_updates security bugfix normal),
                                                                                 if_($is_backports, 'backports')
 
                                                                           } ],