1 files changed, 37 insertions, 4 deletions

diff --git a/lib/AdminPanel/Rpmdragora/gui.pm b/lib/AdminPanel/Rpmdragora/gui.pm
index 8bb50d9a..d7c7e002 100644
--- a/lib/AdminPanel/Rpmdragora/gui.pm
+++ b/lib/AdminPanel/Rpmdragora/gui.pm
@@ -1648,7 +1648,8 @@ sub _build_tree {
     });
 
     $tree->startMultipleChanges();
-#     my $selected_group = $tree->selectedItem()->
+    my $selected = $tree->selectedItem();
+    my $groupname = group_path_name($selected) if $selected;
 
     $tree->deleteAllItems() if $tree->hasItems();
 
@@ -1672,6 +1673,7 @@ sub _build_tree {
         hash_tree              => $tree_hash,
         icons                  => \%icons,
         default_item_separator => '|',
+        default_item           => $groupname,
     });
 
     $tree->addItems($itemColl);
@@ -1819,15 +1821,46 @@ sub run_browser {
     run_program::raw({ detach => 1, as_user => 1 }, 'www-browser', $url);
 }
 
+#=============================================================
+
+=head2 group_path_name
+
+=head3 INPUT
+
+    $treeItem: YTreeItem object
+
+=head3 OUTPUT
+
+    $fullname: completed path group name
+
+=head3 DESCRIPTION
+
+    This function returns the path name treeItem group name (e.g. foo|bar)
+
+=cut
+
+#=============================================================
+sub group_path_name {
+    my $treeItem = shift;
+
+    my $fullname = $treeItem->label();
+    my $it = $treeItem;
+    while ($it = $it->parent()) {
+        $fullname = join("|", $it->label(), $fullname);
+    }
+
+    return $fullname;
+}
+
 sub groups_tree {
-    warn "DEPRECATE groups_tree: do not use it any more!";
+    carp "DEPRECATED groups_tree: do not use it any more!";
 
     return %groups_tree;
 }
 
 sub group_has_parent {
     my ($group) = shift;
-    warn "DEPRECATE group_has_parent: do not use it any more!";
+    carp "DEPRECATED group_has_parent: do not use it any more!";
     return 0 if(!defined($group));
     return defined($groups_tree{$group}{parent});
 }
@@ -1835,7 +1868,7 @@ sub group_has_parent {
 sub group_parent {
     my ($group) = shift;
 
-    warn "DEPRECATE group_parent: do not use it any more!";
+    carp "DEPRECATED group_parent: do not use it any more!";
     # if group is a parent itself return it
     # who use group_parent have to take care of the comparison
     # between a group and its parent