[BACK]Return to lonspreadsheet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface / spreadsheet

Diff for /loncom/interface/spreadsheet/lonspreadsheet.pm between versions 1.61.6.2 and 1.66

version 1.61.6.2, 2013/08/09 23:05:18 version 1.66, 2020/08/10 19:28:21
Line 241  sub handler { 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       # Do not allow users without vgr or mgr priv to continue unless 
     # grading type is set to spreadsheet.       # grading type is set to spreadsheet. 
     #      #
Line 418  ENDSCRIPT Line 440  ENDSCRIPT
           bug   => 'Spreadsheet'});            bug   => 'Spreadsheet'});
     $r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js).      $r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js).
               &Apache::lonhtmlcommon::breadcrumbs('Spreadsheet',                &Apache::lonhtmlcommon::breadcrumbs('Spreadsheet',
   'Spreadsheet_About').    'Spreadsheet_About'));
               &Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'),  
                                                      'grading'));      #
       # Tabs
       # 
       &Apache::lonquickgrades::startGradeScreen($r,'spreadsheet');
   
     #      #
     # Open the form      # Open the form
Line 578  ENDSCRIPT Line 603  ENDSCRIPT
         $spreadsheet->display($r);          $spreadsheet->display($r);
     }      }
     $r->print('</form>');      $r->print('</form>');
       &Apache::lonquickgrades::endGradeScreen($r);
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
     $spreadsheet->clear_package();      $spreadsheet->clear_package();
     return OK;      return OK;
Removed from v.1.61.6.2  
changed lines
  Added in v.1.66

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>