--- loncom/xml/lonxml.pm	2001/05/04 16:10:17	1.69
+++ loncom/xml/lonxml.pm	2001/05/04 19:18:43	1.71
@@ -16,6 +16,7 @@ use Safe;
 use Safe::Hole;
 use Opcode;
 use Apache::Constants qw(:common);
+use Apache::lontexconvert;
 
 
 sub xmlbegin {
@@ -37,9 +38,19 @@ sub xmlend {
     return '</html>';
 }
 
+sub fontsettings() {
+    my $headerstring='';
+    if (($ENV{'browser.os'} eq 'mac') && (!$ENV{'browser.mathml'})) { 
+         $headerstring.=
+             '<meta Content-Type="text/html; charset=x-mac-roman">';
+    }
+    return $headerstring;
+}
+
 sub registerurl {
   return (<<ENDSCRIPT);
 <script language="JavaScript">
+// BEGIN LON-CAPA Internal
     function LONCAPAreg() {
        if (window.location.pathname!="/res/adm/pages/menu.html") {
 	  menu=window.open("","LONCAPAmenu");
@@ -54,6 +65,7 @@ sub registerurl {
           menu.currentStale=1;
        }
     }
+// END LON-CAPA Internal
 </script>
 ENDSCRIPT
 }