--- rat/lonpage.pm	2000/11/16 11:58:30	1.20
+++ rat/lonpage.pm	2001/08/03 16:55:00	1.22
@@ -12,6 +12,7 @@ package Apache::lonpage;
 use strict;
 use Apache::Constants qw(:common :http);
 use Apache::lonnet();
+use Apache::lonxml();
 use HTML::TokeParser;
 use GDBM_File;
 
@@ -300,15 +301,21 @@ sub handler {
 		      }
 # ------------------------------------------------------------------------ Head
                       $r->print("\n<head>\n".$allmeta);
+                      $allscript=~
+       s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs;
                       if ($allscript) {
-			  $r->print("\n<script>\n".$allscript."\n</script>\n");
+			  $r->print("\n<script language='JavaScript'>\n".
+                                   $allscript."\n</script>\n");
                       }
+                      $r->print(&Apache::lonxml::registerurl);
                       $r->print("\n</head>\n");
 # ------------------------------------------------------------------ Start body
                       if ($isxml) {
                           $r->print($xmlbody);
                       } else {
-			  $r->print('<body bgcolor="#FFFFFF">');
+			  $r->print(
+ '<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents.
+                     '" onUnload="'.&Apache::lonxml::unloadevents.'">');
                       }
 # ------------------------------------------------------------------ Start form
                       if ($nforms) {
@@ -324,10 +331,10 @@ sub handler {
                           my $avespan=$lcm/($#colcont+1);
                           for ($j=0;$j<=$#colcont;$j++) {
                               my $rid=$colcont[$j];
-                              my $metainfo='<a href="'.
-                                    $metalink{$rid}.'" target="LONcatInfo">'.
-                          '<img src="/adm/lonMisc/cat_button.gif" border=0>'.
-			  '</img></a><br></br>';
+                              my $metainfo='';#'<a href="'.
+                                   #$metalink{$rid}.'" target="LONcatInfo">'.
+                          #'<img src="/adm/lonMisc/cat_button.gif" border=0>'.
+			  #'</img></a><br></br>';
                               $r->print('<td colspan="'.$avespan.'"');
                               if ($cellemb{$rid} eq 'ssi') {
 				  if ($ssibgcolor{$rid}) {
