--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/07/16 13:52:19 1.16 +++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/08/01 13:31:41 1.18 @@ -1,5 +1,5 @@ # -# $Id: lonspreadsheet.pm,v 1.16 2003/07/16 13:52:19 matthew Exp $ +# $Id: lonspreadsheet.pm,v 1.18 2003/08/01 13:31:41 matthew Exp $ # # Copyright Michigan State University Board of Trustees # @@ -214,6 +214,14 @@ sub handler { $r->uri.":opa:0:0:Cannot modify spreadsheet"; return HTTP_NOT_ACCEPTABLE; } + my $courseid = $ENV{'request.course.id'}; + # + # Do not allow students to continue if standard grading is in effect. + if ($ENV{'request.role'} =~ /^st\./) { + if ($ENV{'course.'.$courseid.'.grading'} eq 'standard') { + return HTTP_NOT_ACCEPTABLE; + } + } # # Get query string for limited number of parameters # @@ -310,7 +318,7 @@ sub handler { edit_text +='Cell Edit Window'; edit_text += '
'; edit_text += '

Cell '+cellname+'

'; - edit_text += '