Lines Matching refs:children
405 my $children = $pg_tree->{$pg}->{children};
406 my @children = $children ? @{$children} : ();
407 @children = $p->intersect(\@children, \@pgs);
408 pg_print_tree($p, $pg_tree, $pg, '', '', scalar @children);
482 # prefix should be used for the current node, childprefix for children nodes
495 # Get list of my children
496 my $children = $pg_tree->{$pg}->{children};
497 my @children = $children ? @{$children} : ();
498 @children = $p->intersect(\@children, \@pgs);
499 my $nchildren = scalar @children;
516 } @children;
531 # Make a version of PG parent-children relationships from cookie
539 my @children = $p->children($pg);
541 $pg_tree->{$pg}->{children} = \@children;
558 my @children = @{$node->{children}};
565 map { $pg_tree->{$_}->{parent} = $parent } @children;
568 # All children move to the parent (if there is one)
572 # Merge children from parent and @children list
574 my @parent_children = @{$parent_node->{children}};
576 # Remove myself from parent children
579 @parent_children = $p->nsort(@parent_children, @children);
580 $parent_node->{children} = \@parent_children;