--- loncom/interface/lonmenu.pm 2005/02/13 22:52:48 1.146 +++ loncom/interface/lonmenu.pm 2005/02/17 08:29:42 1.147 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.146 2005/02/13 22:52:48 albertel Exp $ +# $Id: lonmenu.pm,v 1.147 2005/02/17 08:29:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -108,8 +108,9 @@ ENDRELOAD my $utility=&utilityfunctions(); my $output=(< -// BEGIN LON-CAPA Internal + $lt{'main'} $reloadlink $navmaps
@@ -180,8 +181,9 @@ ENDRELOAD my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); return (< -// BEGIN LON-CAPA Internal + @@ -1174,8 +1176,10 @@ ENDSCRIPT $ENV{'browser.interface'}='faketextual'; $ENV{'environment.remote'}='off'; } + my $html=&Apache::lonxml::xmlbegin(); $r->print(< +$html + LON-CAPA Main Menu $script_tag