loncom/xml/lonxml.pm - diff

Return to lonxml.pm CVS log

Up to [LON-CAPA] / loncom / xml

-version 1.68, 2001/05/04 15:29:32
+version 1.70, 2001/05/04 17:33:35
  Line 37  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") {
+     function LONCAPAreg() {
- 	menu=window.open("","LONCAPAmenu");
+        if (window.location.pathname!="/res/adm/pages/menu.html") {
- 	menu.currentURL=window.location.pathname;
+ 	  menu=window.open("","LONCAPAmenu");
-         menu.currentStale=0;
+ 	  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;