Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
version 1.355, 2005/01/30 23:31:12 | version 1.356, 2005/02/17 08:34:56 |
---|---|
Line 149 $Apache::lonxml::post_evaluate=1; | Line 149 $Apache::lonxml::post_evaluate=1; |
$Apache::lonxml::warnings_error_header=''; | $Apache::lonxml::warnings_error_header=''; |
sub xmlbegin { | sub xmlbegin { |
my $output=''; | my ($style)=@_; |
@htmlareafields=(); | my $output=''; |
if ($ENV{'browser.mathml'}) { | @htmlareafields=(); |
$output='<?xml version="1.0"?>' | if ($ENV{'browser.mathml'}) { |
$output='<?xml version="1.0"?>' | |
.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>' | .'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>' |
.'<!DOCTYPE html SYSTEM "/adm/MathML/mathml.dtd" ' | .'<!DOCTYPE html SYSTEM "/adm/MathML/mathml.dtd" ' |
.'[<!ENTITY mathns "http://www.w3.org/1998/Math/MathML">]>' | .'[<!ENTITY mathns "http://www.w3.org/1998/Math/MathML">]>' |
.'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' | .'<html xmlns:math="http://www.w3.org/1998/Math/MathML" ' |
.'xmlns="http://www.w3.org/TR/REC-html40">'; | .'xmlns="http://www.w3.org/TR/REC-html40">'; |
} else { | } else { |
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> | $output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>'; |
<html>'; | } |
} | if ($style eq 'encode') { |
return $output; | $output=&HTML::Entities::encode($output,'<>&"'); |
} | |
return $output; | |
} | } |
sub xmlend { | sub xmlend { |
Line 284 sub printtokenheader { | Line 287 sub printtokenheader { |
} | } |
} | } |
sub fontsettings() { | sub fontsettings { |
my $headerstring=''; | my $headerstring=''; |
if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { | if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { |
$headerstring.= | $headerstring.= |