loncom/interface/spreadsheet/lonspreadsheet.pm - diff

Return to lonspreadsheet.pm CVS log

Up to [LON-CAPA] / loncom / interface / spreadsheet

-version 1.61.6.2, 2013/08/09 23:05:18
+version 1.61.6.2.2.1, 2020/09/08 04:39:15
  Line 241  sub handler {
      }
      #
+     # Check if display of course gradebook is blocked
+     #
+     if ($env{'request.course.id'}) {
+         my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
+         my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
+         my ($blocked,$blocktext) =
+             &Apache::loncommon::blocking_status('grades',$cnum,$cdom);
+         if ($blocked) {
+             my $checkrole = "cm./$cdom/$cnum";
+             if ($env{'request.course.sec'} ne '') {
+                 $checkrole .= "/$env{'request.course.sec'}";
+             }
+             unless ((&Apache::lonnet::allowed('evb',undef,undef,$checkrole)) &&
+                     ($env{'request.role'} !~ m{^st\./$cdom/$cnum})) {
+                 &Apache::lonquickgrades::grades_blocked($r,$blocktext,'spreadsheet');
+                 return OK;
+             }
+         }
+     }
+     #
      # Do not allow users without vgr or mgr priv to continue unless
      # grading type is set to spreadsheet.
      #