--- rat/lonratmenu.pm 2005/06/10 21:45:46 1.3 +++ rat/lonratmenu.pm 2008/03/03 16:41:49 1.9 @@ -37,24 +37,27 @@ sub handler { my $include = $Apache::lonnet::perlvar{'lonIncludes'}; my $jsh=Apache::File->new($include."/ratcode.js"); $r->send_http_header('text/html'); - $r->print('Advanced Editor'); - $r->print(<$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 $js = join('',<$jsh>); + my %loaditem = ('onunload' => "leave();",); + my $start_page = + &Apache::loncommon::start_page('Advanced Editor',$js, + {'add_entries' => \%loaditem, 'suppress_header_logos' => 1}); + $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; } sub print_html { my $readfile=shift; + my $help=&Apache::loncommon::help_open_menu('Sequence_Advanced_Editor_Creation','Sequence_Advanced_Editor_Creation',6,'RAT'); + my $pagetext = <<"END";
+ @@ -66,16 +69,15 @@ sub print_html { +
$help Toggle display Zoom out Zoom inRecover deleted Search ImportImport Bookmarks Copy Save map Save map and layout
- - - END return $pagetext; }