--- loncom/xml/lonxml.pm	2001/05/04 15:29:32	1.68
+++ loncom/xml/lonxml.pm	2001/05/04 17:33:35	1.70
@@ -37,18 +37,44 @@ 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">
-    if (window.location.pathname!="/res/adm/pages/menu.html") {
-	menu=window.open("","LONCAPAmenu");
-	menu.currentURL=window.location.pathname;
-        menu.currentStale=0;
+    function LONCAPAreg() {
+       if (window.location.pathname!="/res/adm/pages/menu.html") {
+	  menu=window.open("","LONCAPAmenu");
+	  menu.currentURL=window.location.pathname;
+          menu.currentStale=0;
+       }
+    }
+  
+    function LONCAPAstale() {
+       if (window.location.pathname!="/res/adm/pages/menu.html") {
+	  menu=window.open("","LONCAPAmenu");
+          menu.currentStale=1;
+       }
     }
 </script>
 ENDSCRIPT
 }
 
+sub loadevents() {
+    return 'LONCAPAreg();';
+}
+
+sub unloadevents() {
+    return 'LONCAPAstale();';
+}
+
 sub register {
   my $space;
   my @taglist;