--- rat/lonratmenu.pm	2005/06/10 21:45:46	1.3
+++ rat/lonratmenu.pm	2006/04/04 15:42:39	1.4
@@ -37,16 +37,19 @@ sub handler {
     my $include = $Apache::lonnet::perlvar{'lonIncludes'};
     my $jsh=Apache::File->new($include."/ratcode.js");
     $r->send_http_header('text/html');
-    $r->print('<html><head><title>Advanced Editor</title></head>');
-    $r->print(<$jsh>);
+    my $js = join('',<$jsh>);
     my $loaditem = 'onUnload="leave();"';
-    my $bodytag=&Apache::loncommon::bodytag(undef,undef,$loaditem,
-                                        ($env{'environment.remote'} ne 'off')).
-       &Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT');
-    $r->print($bodytag);
+    my $start_page = 
+	&Apache::loncommon::start_page('Advanced Editor',$js,
+				       {'add_entries' => $loaditem,
+					'only_body'   =>
+				       ($env{'environment.remote'} ne 'off')}).
+	&Apache::loncommon::help_open_menu('','Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation','',6,'RAT');
+    $r->print($start_page);
     my $readfile=$r->uri;
     $readfile=~s/\/loadonly\/adveditmenu$//;
     $r->print(&print_html($readfile));
+    $r->print(&Apache::loncommon::end_page());
     return OK;
 }
 
@@ -71,11 +74,9 @@ sub print_html {
 <td bgcolor="#ccffcc"><a href="javascript:storechange();"><font size="-2">Save map and layout</font></a></td>
 </tr></table>
 </td></tr></table>
-<script>
+<script type="text/javascript">
 main();
 </script>
-</body>
-</html>
 END
     return $pagetext;
 }
