Diff for /rat/lonratmenu.pm between versions 1.3 and 1.4

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

Removed from v.1.3  
changed lines
  Added in v.1.4


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>