--- loncom/interface/lonquickgrades.pm 2017/12/18 23:51:14 1.112 +++ loncom/interface/lonquickgrades.pm 2020/05/20 16:55:52 1.115 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Quick Student Grades Display # -# $Id: lonquickgrades.pm,v 1.112 2017/12/18 23:51:14 raeburn Exp $ +# $Id: lonquickgrades.pm,v 1.115 2020/05/20 16:55:52 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -293,9 +293,18 @@ sub startGradeScreen { $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'externalnototals'; my $showCategories= $env{'course.'.$env{'request.course.id'}.'.grading'} eq 'categories'; + + my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'}); + if ((!$allowed_to_view) && ($env{'request.course.sec'} ne '')) { + $allowed_to_view = &Apache::lonnet::allowed('vgr', + "$env{'request.course.id'}/$env{'request.course.sec'}"); + } - my $allowed_to_view = &Apache::lonnet::allowed('vgr',$env{'request.course.id'}); - my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'}); + my $allowed_to_edit = &Apache::lonnet::allowed('mgr',$env{'request.course.id'}); + if (!$allowed_to_edit) && ($env{'request.course.sec'} ne '')) { + $allowed_to_edit = &Apache::lonnet::allowed('mgr', + "$env{'request.course.id'}/$env{'request.course.sec'}"); + } if ($allowed_to_view) { my @notes; @@ -322,7 +331,7 @@ sub startGradeScreen { &mt('Statistics and Reports').''); $r->print("\n".'