--- loncom/interface/spreadsheet/lonspreadsheet.pm	2003/06/20 17:24:04	1.15
+++ loncom/interface/spreadsheet/lonspreadsheet.pm	2003/07/17 15:22:14	1.17
@@ -1,5 +1,5 @@
 #
-# $Id: lonspreadsheet.pm,v 1.15 2003/06/20 17:24:04 matthew Exp $
+# $Id: lonspreadsheet.pm,v 1.17 2003/07/17 15:22:14 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
     #
@@ -429,6 +437,7 @@ END
         if ($allowed_to_view || $allowed_to_edit) {
             $r->print($spreadsheet->parent_link());
         }
+        $r->rflush();
         $spreadsheet->display($r);
     }
     $r->print('</form></body></html>');