(build_tree) fix sorting in "by_source" view by reusing _build_tree()

2 files changed, 5 insertions, 5 deletions

diff --git a/NEWS b/NEWS
index 0385bac6..4de77c5d 100644
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,6 @@
+- rpmdrake:
+  o fix sorting in "by_source" view
+
 Version 4.9.5 - 19 March 2008, Thierry Vignaud
 
 - rpmdrake:
diff --git a/Rpmdrake/gui.pm b/Rpmdrake/gui.pm
index 7bafd9e3..bc893740 100644
--- a/Rpmdrake/gui.pm
+++ b/Rpmdrake/gui.pm
@@ -867,12 +867,9 @@ or you already installed all of them."));
             add_node($_->[0], N("All")) foreach $sortmethods{flat}->(@elems);
             $tree->expand_row($tree_model->get_path($tree_model->get_iter_first), 0);
         } elsif ($::mode->[0] eq 'by_source') {
-            my @list = $sortmethods{by_medium}->(map {
+             _build_tree($elems, $sortmethods{by_medium}->(map {
                 my $m = pkg2medium($pkgs->{$_->[0]}{pkg}, $urpm); [ $_->[0], $m->{name}, $m->{priority} ];
-            } @elems);
-            add_parent($_) foreach uniq(map { $_->[1] } @list);
-            add_node($_->[0], $_->[1]) foreach @list;
-        } elsif ($mode eq 'by_presence') {
+            } @elems));
             add_node(
                 $_->[0], $pkgs->{$_->[0]}{pkg}->flag_installed && !$pkgs->{$_->[0]}{pkg}->flag_skip
                   ? N("Upgradable") : N("Addable")