$newobj->setOwnerDocument($node->getOwnerDocument);
}
$node->appendChild($newobj);
+
+ clean($newobj, $nsup) if ($clean);
} elsif (ref($obj) eq 'HASH') { # substitute
for my $child ($node->getChildNodes) {
my $processed = 0;
}
}
}
- print $child->getTagName, "\n";
my (undef, undef, $tag) = $nsup->process_element_name($child->getTagName);