Changeset 15890 for gsdl/trunk/perllib/ClassifyTreeNode.pm
- Timestamp:
- 2008-06-06T11:04:57+12:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/perllib/ClassifyTreeNode.pm
r12844 r15890 4 4 use ClassifyTreePath; 5 5 use GDBMUtils; 6 use strict; 6 7 7 8 # /** Constructor … … 121 122 # and then replacing any occurance to the parents old clid with the 122 123 # parents new clid 123 $old_child_clid = $child_node->getCLID();124 my $old_child_clid = $child_node->getCLID(); 124 125 #rint STDERR "* considering: " . $old_child_clid . "\n"; 125 126 if($old_child_clid =~ /^CL/) 126 127 { 127 $new_child_clid = $new_clid . substr($old_child_clid, length($old_clid));128 my $new_child_clid = $new_clid . substr($old_child_clid, length($old_clid)); 128 129 #rint STDERR "* shifting child $old_child_clid to $new_child_clid\n"; 129 130 $child_node->changeCLID($new_child_clid); … … 407 408 # children first! 408 409 @children = reverse $self->getChildren(); 409 $offset2 = scalar(@children) + 1;410 my $offset2 = scalar(@children) + 1; 410 411 foreach my $sibling_node (@children) 411 412 { … … 432 433 $child_node->setTitle($path->getLastPathComponent()); 433 434 # Update the contains metadata for this node 434 $contains = $self->getContains();435 my $contains = $self->getContains(); 435 436 if($contains =~ /\w/) 436 437 {
Note:
See TracChangeset
for help on using the changeset viewer.