Return to loncommon.pm CVS log | Up to [LON-CAPA] / loncom / interface |
version 1.340, 2006/04/18 20:50:30 | version 1.341, 2006/04/18 20:55:14 |
---|---|
Line 3126 sub font_settings { | Line 3126 sub font_settings { |
return $headerstring; | return $headerstring; |
} | } |
=pod | |
=over 4 | |
=item * &xml_begin() | |
Returns the needed doctype and <html> | |
Inputs: none | |
=back | |
=cut | |
sub xml_begin { | |
my $output=''; | |
@Apache::lonxml::htmlareafields=(); | |
if ($env{'browser.mathml'}) { | |
$output='<?xml version="1.0"?>' | |
#.'<?xml-stylesheet type="text/css" href="/adm/MathML/mathml.css"?>'."\n" | |
# .'<!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" ' | |
.'xmlns="http://www.w3.org/1999/xhtml">'; | |
} else { | |
$output='<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html>'; | |
} | |
return $output; | |
} | |
=pod | =pod |
Line 3219 sub start_page { | Line 3251 sub start_page { |
my $result; | my $result; |
if (! exists($args->{'skip_phases'}{'head'}) ) { | if (! exists($args->{'skip_phases'}{'head'}) ) { |
$result.= | $result.= |
&Apache::lonxml::xmlbegin(). | &xml_begin(). |
&headtag($title,$head_extra,\%head_args).&endheadtag(); | &headtag($title,$head_extra,\%head_args).&endheadtag(); |
} | } |