83 |
|
|
84 |
$node->parent_node->insert_before ($section, $node); |
$node->parent_node->insert_before ($section, $node); |
85 |
$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 |
86 |
} elsif ($node->manakai_local_name eq 'catalog') { |
} elsif ($node->manakai_local_name eq 'cat') { |
87 |
$node->parent_node->remove_child ($node); |
$node->parent_node->remove_child ($node); |
88 |
} else { |
} else { |
89 |
warn "$0: ", $node->manakai_local_name, " is not supported\n"; |
warn "$0: ", $node->manakai_local_name, " is not supported\n"; |
90 |
} |
} |