aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lib/AdminPanel/Rpmdragora/gui.pm41
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