![[BACK]](/icons/back.gif){kind=icon}
Return to xml_to_loncapa.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / homework / cleanxml|
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); |