--- loncom/interface/lonmenu.pm 2006/07/07 21:55:05 1.193 +++ loncom/interface/lonmenu.pm 2006/07/19 10:52:27 1.199 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.193 2006/07/07 21:55:05 raeburn Exp $ +# $Id: lonmenu.pm,v 1.199 2006/07/19 10:52:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -65,7 +65,6 @@ sub initlittle { 'launch' => 'Launch Remote Control', 'groups' => 'Groups', 'gdoc' => 'Group Documents', - 'teams' => 'Teams', ); } @@ -91,6 +90,10 @@ sub menubuttons { my $escurl=&escape(&Apache::lonenc::check_encrypt($env{'request.noversionuri'})); my $escsymb=&escape(&Apache::lonenc::check_encrypt($env{'request.symb'})); + my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); + $logo = 'LON-CAPA Logo'; + if ($env{'request.state'} eq 'construct') { if (($env{'request.noversionuri'} eq '') || (!defined($env{'request.noversionuri'}))) { my $returnurl = $env{'request.filename'}; @@ -101,7 +104,7 @@ sub menubuttons { if ($env{'request.course.id'}) { my %coursegroups; my $viewgrps_permission = - &Apache::lonnet::allowed('vcg',$env{'request.course.id'}); + &Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:'')); if (!$viewgrps_permission) { %coursegroups = &Apache::lonnet::get_active_groups($env{'user.domain'},$env{'user.name'},$env{'course.'.$env{'request.course.id'}.'.domain'}, $env{'course.'.$env{'request.course.id'}.'.num'}); } @@ -129,12 +132,12 @@ ENDRELOAD $lt{'docs'} ENDDOCS } -# if ($showgroups) { -# $groups =(<$lt{'groups'} -#ENDGROUPS -# } -# } + if ($showgroups) { + $groups =(<$lt{'groups'} +ENDGROUPS + } + } my $form=&serverform(); my $utility=&utilityfunctions(); my $output=(< - + $logo + + $lt{'exit'} - LON-CAPALogo @@ -198,12 +201,11 @@ my $is_group = (&Apache::loncommon::cour $text ENDDOCS } -# if ($showgroups) { -# my $text = ($is_group) ? $lt{'teams'} : $lt{'groups'}; -# $groups =(<$text -#ENDGROUPS -# } + if ($showgroups) { + $groups =(<$lt{'groups'} +ENDGROUPS + } if ( ($env{'request.noversionuri'}=~m[^/(res|public)/] && $env{'request.symb'} eq '') @@ -232,11 +234,12 @@ ENDCRELOAD } my $form=&serverform(); my $utility=&utilityfunctions(); - my $logo=&Apache::loncommon::lonhttpdurl("/adm/lonIcons/minilogo.gif"); my $remote; if ($env{'user.adv'}) { $remote = ''.$lt{'launch'}.'' } + + my $helplink=&Apache::loncommon::top_nav_help('Help'); return (< // BEGIN LON-CAPA Internal @@ -246,6 +249,7 @@ $utility +$logo $reloadlink $navmaps @@ -253,8 +257,8 @@ $docs $groups $remote - - + +
$lt{'main'}$lt{'roles'}$lt{'exit'}$helplink$lt{'exit'}
$form @@ -383,7 +387,7 @@ sub innerregister { &Apache::lonnet::allowed('opa',$crs)) { $hwkadd.=&switch('','',7,3,'pparm.gif','problem[_2]','parms[_2]', "gocmd('/adm/parmset','set')", - 'Modify deadlines, etc, for this resource'); + 'Modify parameter settings for this resource'); } # -- End Homework ###