(run_treeview_dialog) precreate all groups in left tree when building the tree

1 files changed, 7 insertions, 5 deletions

diff --git a/rpmdrake b/rpmdrake
index 7e2e0844..807a2e76 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -749,12 +749,14 @@ or you already installed all of them."));
 			? N("Upgradable") : N("Addable")
 		    ) foreach $sortmethods{flat}->(@elems);
 		} else {
-		    #- special case, we don't populate all the tree at first (to speed things up)
+		    #- we populate all the groups tree at first
 		    %elems = ();
-		    foreach my $root (sort { $a cmp $b } uniq(map { (split /\|/, $_->[1])[0] } @elems)) {
-			$add_node->('', $root);
-			@{$elems{$root}} = sort { $a->[1] cmp $b->[1] || uc($a->[0]) cmp uc($b->[0]) }
-			grep { $_->[1] =~ /^\Q$root\E\b/ } @elems;
+		    # better loop on packages, create groups tree and push packages in the proper place:
+		    foreach my $pkg (@elems) {
+                  my $grp = $pkg->[1];
+                  $options->{add_parent}->($grp);
+                  $elems{$grp} ||= [ ];
+                  push @{$elems{$grp}}, $pkg;
 		    }
 		}
 	    }