version 1.339, 2006/04/18 19:18:17
|
version 1.340, 2006/04/18 20:50:30
|
Line 3076 sub headtag {
|
Line 3076 sub headtag {
|
|
|
my $result = |
my $result = |
'<head>'. |
'<head>'. |
&Apache::lonxml::fontsettings(). |
&font_settings(). |
&Apache::lonhtmlcommon::htmlareaheaders(); |
&Apache::lonhtmlcommon::htmlareaheaders(); |
|
|
if ($args->{'force_register'}) { |
if ($args->{'force_register'}) { |
Line 3102 ADDMETA
|
Line 3102 ADDMETA
|
|
|
=pod |
=pod |
|
|
|
=over 4 |
|
|
|
=item * &font_settings() |
|
|
|
Returns neccessary <meta> to set the proper encoding |
|
|
|
Inputs: none |
|
|
|
=back |
|
|
|
=cut |
|
|
|
sub font_settings { |
|
my $headerstring=''; |
|
if (($env{'browser.os'} eq 'mac') && (!$env{'browser.mathml'})) { |
|
$headerstring.= |
|
'<meta Content-Type="text/html; charset=x-mac-roman" />'; |
|
} elsif (!$env{'browser.mathml'} && $env{'browser.unicode'}) { |
|
$headerstring.= |
|
'<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />'; |
|
} |
|
return $headerstring; |
|
} |
|
|
|
|
|
=pod |
|
|
=over 4 |
=over 4 |
|
|
=item * &endheadtag() |
=item * &endheadtag() |