oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

$class->getTree() failed to insert the dummy root into the tree for subclasses

Browse source 
that use a dummy root.

Set the name() method so that draw_ascii_tree() produces something useful
This commit is contained in:
Ben Simpson 2003-05-19 13:56:58 +00:00
parent c954ff636c
commit d3478c8282
1 changed files with 21 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lib/WebGUI/Persistent/Tree.pm
View file

@ -239,7 +239,7 @@ sub getTree {
unless (ref($self)) { unless (ref($self)) {
if ($class->useDummyRoot()) { if ($class->useDummyRoot()) {
$self = $class->dummyRoot(); $nodes->{0} = $self = $class->dummyRoot();
} }
if (!defined($maxDepth)) { if (!defined($maxDepth)) {
@ -306,6 +306,26 @@ sub minimumFields {
#------------------------------------------------------------------- #-------------------------------------------------------------------
sub name {
my $self = shift;
return $self->keyColumn().':'.$self->get($self->keyColumn());
}
#-------------------------------------------------------------------
# Avoid a bug in Tree::DAG_Node.
# When a new node is created and has no daughters. This sometimes causes
# problems for Tree::DAG_Node::walk_down()
sub new {
my $class = shift;
my $self = $class->SUPER::new(@_);
$self->{daughters} ||= [] if $self;
return $self;
}
#-------------------------------------------------------------------
=head2 motherSelfAndSisters( $keyColumnId ) =head2 motherSelfAndSisters( $keyColumnId )
Given the $keyColumnId, this method fetches the related mother and sisters. Given the $keyColumnId, this method fetches the related mother and sisters.