--- loncom/xml/lonxml.pm 2005/01/30 12:56:45 1.354 +++ loncom/xml/lonxml.pm 2005/02/26 05:37:23 1.357 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.354 2005/01/30 12:56:45 www Exp $ +# $Id: lonxml.pm,v 1.357 2005/02/26 05:37:23 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -149,20 +149,25 @@ $Apache::lonxml::post_evaluate=1; $Apache::lonxml::warnings_error_header=''; sub xmlbegin { - my $output=''; - @htmlareafields=(); - if ($ENV{'browser.mathml'}) { - $output='' - .'' - .']>' + my ($style)=@_; + my $output=''; + @htmlareafields=(); + if ($ENV{'browser.mathml'}) { + $output='' + #.''."\n" +# .'] >' + .'' .''; - } else { - $output=' -'; - } - return $output; + .'xmlns="http://www.w3.org/1999/xhtml">'; + } else { + $output=''; + } + if ($style eq 'encode') { + $output=&HTML::Entities::encode($output,'<>&"'); + } + return $output; } sub xmlend { @@ -284,7 +289,7 @@ sub printtokenheader { } } -sub fontsettings() { +sub fontsettings { my $headerstring=''; if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { $headerstring.= @@ -384,7 +389,8 @@ sub htmlclean { # Make standard tags lowercase foreach ('html','body','head','meta','h1','h2','h3','h4','b','i','m', 'table','tr','td','th','p','br','hr','img','embed','font', - 'a','strong','center','title','basefont') { + 'a','strong','center','title','basefont','li','ol','ul', + 'input','select','form','option','script','pre') { $raw=~s/\<$_\s*\>/\<$_\>/gis; $raw=~s/\<\/$_\s*\>/<\/$_\>/gis; $raw=~s/\<$_\s([^\>]*)\>/<$_ $1\>/gis;