Diff for /rat/lonwrapper.pm between versions 1.21 and 1.22

version 1.21, 2006/03/21 21:50:39 version 1.22, 2006/04/04 15:11:48
Line 40  sub simple_menu { Line 40  sub simple_menu {
 #  #
 # Producing the menu buttons  # Producing the menu buttons
 #  #
     return '<html><body bgcolor="#FFFFFF">'.      return &Apache::loncommon::start_page('Menu',undef,
  &Apache::lonmenu::menubuttons(1,'web',1).'</body></html>';    {'only_body' => 1,
      'bgcolor'   => '#FFFFFF',}).
    &Apache::lonmenu::menubuttons(1,'web',1).
    &Apache::loncommon::end_page();
 }  }
   
   
Line 53  sub wrapper { Line 55  sub wrapper {
 #  #
 # ssi-based rendering for text-based interface  # ssi-based rendering for text-based interface
 #  #
  return '<html><head>'.   return 
     &Apache::lonmenu::registerurl(1).      &Apache::loncommon::start_page('Menu',undef,
     '</head><body bgcolor="#FFFFFF">'.    {'bgcolor'        => '#FFFFFF',
     &Apache::lonmenu::menubuttons(1).     'force_register' => 1,
     &Apache::lonnet::ssi_body($bottomurl).'</body></html>';         }).
       &Apache::lonnet::ssi_body($bottomurl).
       &Apache::loncommon::end_page();
     }      }
   
     my $events='onLoad="'.&Apache::lonmenu::loadevents.      my $events='onLoad="'.&Apache::lonmenu::loadevents.
  '" onUnload="'.&Apache::lonmenu::unloadevents.'"';   '" onUnload="'.&Apache::lonmenu::unloadevents.'"';
     my $script=&Apache::lonmenu::registerurl(1,undef);  
           
     my $result = <<ENDDOCUMENTINL;      my $result = &Apache::lonxml::xmlbegin().
 <html>   &Apache::loncommon::head(undef,undef,
 <head>   {'force_register' => 1});
 $script    
 </head>  
 ENDDOCUMENTINL  
   
     if ($env{'environment.remote'} eq 'off') {      if ($env{'environment.remote'} eq 'off') {
 #  #
 # This is inline remote  # This is inline remote

Removed from v.1.21  
changed lines
  Added in v.1.22


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