Return to xml_to_loncapa.pm CVS log | Up to [LON-CAPA] / loncom / homework / cleanxml |
version 1.2, 2015/12/18 22:08:51 | version 1.3, 2015/12/23 20:33:10 |
---|---|
Line 95 sub node_to_string { | Line 95 sub node_to_string { |
$s .= escape_attribute($attribute->nodeValue); | $s .= escape_attribute($attribute->nodeValue); |
$s .= '"'; | $s .= '"'; |
} | } |
if ($node->hasChildNodes()) { | if ($node->hasChildNodes() || $tag eq 'script') { |
$s .= '>'; | $s .= '>'; |
foreach my $child ($node->childNodes) { | foreach my $child ($node->childNodes) { |
$s .= node_to_string($child); | $s .= node_to_string($child); |