![[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|
Return to lonxml.pm CVS log | Up to [LON-CAPA] / loncom / xml |
| version 1.355, 2005/01/30 23:31:12 | version 1.357, 2005/02/26 05:37:23 |
|---|---|
| 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'}) { |
| .'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>' | $output='<?xml version="1.0"?>' |
| .'<!DOCTYPE html SYSTEM "/adm/MathML/mathml.dtd" ' | #.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>'."\n" |
| .'[<!ENTITY mathns "http://www.w3.org/1998/Math/MathML">]>' | # .'<!DOCTYPE html SYSTEM "/adm/MathML/mathml.dtd" ' |
| # .'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" [<!ENTITY mathns "http://www.w3.org/1998/Math/MathML">] >' | |
| .'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1 plus MathML 2.0 plus SVG 1.1//EN" "http://www.w3.org/2002/04/xhtml-math-svg/xhtml-math-svg.dtd">' | |
| .'<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/1999/xhtml">'; |
| } 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 289 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.= |