--- loncom/interface/lonmenu.pm 2006/04/20 04:22:38 1.175 +++ loncom/interface/lonmenu.pm 2006/04/21 20:45:42 1.176 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.175 2006/04/20 04:22:38 albertel Exp $ +# $Id: lonmenu.pm,v 1.176 2006/04/21 20:45:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -101,7 +101,7 @@ sub menubuttons { my $showgroups=0; my $escurl=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); my $escsymb=&Apache::lonnet::escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); - my $face= 'face="Arial,Helvetica,sans-serif"'; + if ($env{'request.state'} eq 'construct') { if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { my $returnurl = $env{'request.filename'}; @@ -121,8 +121,6 @@ sub menubuttons { } } - my ($font,$pgbg,$tabbg) = &get_colors(); - if ($env{'browser.interface'} eq 'textual') { # Textual display only if ($env{'request.course.id'}) { @@ -134,18 +132,17 @@ ENDNAV ($env{'request.noversionuri'}!~/^\/adm\/.*\/(smppg|bulletinboard|aboutme)(\?|$)/)) { my $escreload=&Apache::lonnet::escape('return:'); $reloadlink=(<$lt{'ret'} +$lt{'ret'} ENDRELOAD } if (&Apache::lonnet::allowed('mdc',$env{'request.course.id'})) { $docs=(<$lt{'docs'} +$lt{'docs'} ENDDOCS } if ($showgroups) { $groups =(< -$lt{'groups'} +$lt{'groups'} ENDGROUPS } } @@ -156,10 +153,12 @@ ENDGROUPS // BEGIN LON-CAPA Internal $utility +
$lt{'main'} $reloadlink $navmaps $docs $groups -$lt{'roles'} -$lt{'exit'} +$lt{'roles'} +$lt{'exit'} +

- +
- + $reloadlink $navmaps $docs $groups - - - - + + + +
-$lt{'main'} -$lt{'main'} - -$lt{'launch'} -$lt{'roles'} - -$lt{'exit'} - -Logo -LON-CAPA$lt{'launch'}$lt{'roles'}$lt{'exit'}LogoLON-CAPA
$form @@ -510,7 +493,6 @@ s&8&2&fdbk.gif&feedback[_1]&discuss[_1]& ENDREALRES } } - &Apache::lonnet::logthis("menuitems $menuitems"); my $buttons=''; foreach (split(/\n/,$menuitems)) { my ($command,@rest)=split(/\&/,$_);