85 |
$node->parent_node->insert_before ($section, $node); |
$node->parent_node->insert_before ($section, $node); |
86 |
$node->parent_node->remove_child ($node); ## TODO: replace_child is not yet implemented |
$node->parent_node->remove_child ($node); ## TODO: replace_child is not yet implemented |
87 |
} elsif ($node->manakai_local_name eq 'catalog') { |
} elsif ($node->manakai_local_name eq 'catalog') { |
88 |
# |
$node->parent_node->remove_child ($node); |
89 |
} else { |
} else { |
90 |
warn "$0: ", $node->manakai_local_name, " is not supported\n"; |
warn "$0: ", $node->manakai_local_name, " is not supported\n"; |
91 |
} |
} |