![[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.4, 2016/01/05 18:51:08 | version 1.5, 2016/01/06 16:44:32 |
|---|---|
| Line 60 sub convert_file { | Line 60 sub convert_file { |
| my ($contents) = @_; | my ($contents) = @_; |
| my $dom_doc = XML::LibXML->load_xml(string => $contents); | my $dom_doc = XML::LibXML->load_xml(string => $contents); |
| add_outtext($dom_doc); | my $root = $dom_doc->documentElement(); |
| if (defined $root && $root->nodeName ne 'html') { | |
| add_outtext($dom_doc); | |
| } | |
| return node_to_string($dom_doc); | return node_to_string($dom_doc); |
| } | } |