--- rat/lonratmenu.pm 2004/11/17 18:39:20 1.1 +++ rat/lonratmenu.pm 2006/04/13 19:00:57 1.6 @@ -37,18 +37,22 @@ 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); - $r->print(&print_html()); + my $js = join('',<$jsh>); + my %loaditem = ('onunload' => "leave();",); + my $start_page = + &Apache::loncommon::start_page('Advanced Editor',$js, + {'add_entries' => \%loaditem,}). + &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; } sub print_html { + my $readfile=shift; my $pagetext = <<"END";
@@ -60,6 +64,7 @@ sub print_html { + @@ -67,11 +72,9 @@ sub print_html {
Revert Undo RedoRecover deleted Search Import CopySave map and layout
- - - END return $pagetext; }