--- loncom/interface/spreadsheet/lonspreadsheet.pm 2020/10/01 18:50:54 1.61.6.2.4.1 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2021/11/30 15:55:39 1.67 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.61.6.2.4.1 2020/10/01 18:50:54 raeburn Exp $ +# $Id: lonspreadsheet.pm,v 1.67 2021/11/30 15:55:39 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -247,8 +247,9 @@ sub handler { if ($env{'request.course.id'}) { my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; + my $clientip = &Apache::lonnet::get_requestor_ip($r); my ($blocked,$blocktext) = - &Apache::loncommon::blocking_status('grades',$cnum,$cdom); + &Apache::loncommon::blocking_status('grades',$clientip,$cnum,$cdom); if ($blocked) { my $checkrole = "cm./$cdom/$cnum"; if ($env{'request.course.sec'} ne '') { @@ -440,9 +441,12 @@ ENDSCRIPT bug => 'Spreadsheet'}); $r->print(&Apache::loncommon::start_page('Grades Spreadsheet',$js). &Apache::lonhtmlcommon::breadcrumbs('Spreadsheet', - 'Spreadsheet_About'). - &Apache::lonhtmlcommon::coursepreflink(&mt('Grade display settings'), - 'grading')); + 'Spreadsheet_About')); + + # + # Tabs + # + &Apache::lonquickgrades::startGradeScreen($r,'spreadsheet'); # # Open the form @@ -600,6 +604,7 @@ ENDSCRIPT $spreadsheet->display($r); } $r->print(''); + &Apache::lonquickgrades::endGradeScreen($r); $r->print(&Apache::loncommon::end_page()); $spreadsheet->clear_package(); return OK;