--- loncom/interface/lonmenu.pm 2024/09/03 10:40:04 1.556 +++ loncom/interface/lonmenu.pm 2025/01/07 22:21:56 1.560 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Routines to control the menu # -# $Id: lonmenu.pm,v 1.556 2024/09/03 10:40:04 raeburn Exp $ +# $Id: lonmenu.pm,v 1.560 2025/01/07 22:21:56 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -615,6 +615,10 @@ sub secondary_menu { && !$env{'request.course.id'}; next if $$menuitem[4] =~ /^crsedit/ && (!$canedit && !$canvieweditor); + next if $$menuitem[4] eq 'crseditCourse' + && ($crstype eq 'Community'); + next if $$menuitem[4] eq 'crseditCommunity' + && ($crstype ne 'Community'); next if $$menuitem[4] eq 'nvgr' && ($canvgr || $ltiexc{'grades'}); next if $$menuitem[4] eq 'vgr' @@ -2696,7 +2700,7 @@ sub utilityfunctions { ($env{'request.symb'} ne '') && ($env{'request.filename'}=~/$LONCAPA::assess_re/)) { my $canview; - foreach my $priv ('msg','vgr') { + foreach my $priv ('mgr','vgr') { $canview = &Apache::lonnet::allowed($priv,$env{'request.course.id'}); if (!$canview && $env{'request.course.sec'} ne '') { $canview = @@ -2942,12 +2946,14 @@ sub serverform { if (($env{'request.deeplink.login'}) && ($env{'request.deeplink.target'} eq '_self')) { $target = ' target="_self"'; } + my $submit = &mt('Submit'); return(< + ENDSERVERFORM } @@ -3112,7 +3118,7 @@ sub roles_selector { $js = &jump_to_role($cdom,$cnum,\%seccount,\%courseroles,\%courseprivs, \%roledesc,$privref,$menucoll,$menuref); $form = - '
'."\n". + ''."\n". ' '."\n". ' '."\n". @@ -3122,7 +3128,8 @@ sub roles_selector { $form .= ' '."\n"; } - $form .= '
'."\n"; + $form .= ''."\n". + ''."\n"; foreach my $role (@roles_order) { my $include; if (defined($courseroles{$role})) { @@ -3611,7 +3618,7 @@ $donebutton $collapse - + $expand $alttxt$title