|
version 1.505.2.3, 2010/09/29 16:02:19
|
version 1.505.2.4, 2010/09/29 16:12:17
|
|
Line 1531 sub verify_html {
|
Line 1531 sub verify_html {
|
| my ($is_html,$is_xml); |
my ($is_html,$is_xml); |
| if ($filecontents =~/(?:\<|\<\;)\?xml[^\<]*\?(?:\>|\>\;)/is) { |
if ($filecontents =~/(?:\<|\<\;)\?xml[^\<]*\?(?:\>|\>\;)/is) { |
| $is_xml = 1; |
$is_xml = 1; |
| } elsif ($filecontents =~/(?:\<|\<\;)html(?:\s+[^\<]+|\s*)[^\<]*(?:\>|\>\;)/is) { |
} elsif ($filecontents =~/(?:\<|\<\;)html(?:\s+[^\<]+|\s*)(?:\>|\>\;)/is) { |
| $is_html = 1; |
$is_html = 1; |
| } |
} |
| unless ($is_xml || $is_html) { |
unless ($is_xml || $is_html) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml