--- loncom/interface/spreadsheet/lonspreadsheet.pm 2003/06/20 16:55:46 1.14
+++ loncom/interface/spreadsheet/lonspreadsheet.pm 2003/09/04 15:17:41 1.22
@@ -1,5 +1,5 @@
#
-# $Id: lonspreadsheet.pm,v 1.14 2003/06/20 16:55:46 www Exp $
+# $Id: lonspreadsheet.pm,v 1.22 2003/09/04 15:17:41 matthew Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -165,7 +165,7 @@ END
}
$load_dialog .= '>'.$sheetfilename."\n";
}
- $load_dialog .= "
| \n\n";
+ $load_dialog .= "\n | \n\n";
#
$result .=<
@@ -214,11 +214,19 @@ 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
#
&Apache::loncommon::get_unprocessed_cgi
- ($ENV{'QUERY_STRING'},['sname','sdomain','usymb','filename']);
+ ($ENV{'QUERY_STRING'},['sname','sdomain','usymb','filename','recalc']);
#
# Deal with restricted student permissions
#
@@ -278,14 +286,11 @@ sub handler {
}
}
-# ================================================================== Good to go
-
#
# Open page, try to prevent browser cache.
#
$r->content_type('text/html');
- $r->header_out('Cache-control','no-cache');
- $r->header_out('Pragma','no-cache');
+ &Apache::loncommon::no_cache($r);
$r->send_http_header;
#
@@ -313,7 +318,7 @@ sub handler {
edit_text +='Cell Edit Window';
edit_text += '');