|
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() |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncommon.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface