version 1.13, 2003/06/19 16:04:06
|
version 1.15, 2003/06/20 17:24:04
|
Line 238 sub handler {
|
Line 238 sub handler {
|
$name = $ENV{'form.sname'}; |
$name = $ENV{'form.sname'}; |
$domain = $ENV{'form.sdomain'}; |
$domain = $ENV{'form.sdomain'}; |
} |
} |
# |
|
# 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'); |
|
$r->send_http_header; |
|
## |
## |
## Check permissions |
## Check permissions |
my $allowed_to_edit = &Apache::lonnet::allowed('mgr', |
my $allowed_to_edit = &Apache::lonnet::allowed('mgr', |
Line 265 sub handler {
|
Line 258 sub handler {
|
# if they are not requesting their own. |
# if they are not requesting their own. |
if ($sheettype eq 'classcalc') { |
if ($sheettype eq 'classcalc') { |
if (! $allowed_to_view) { |
if (! $allowed_to_view) { |
$r->print('<h1>Access Permission Denied</h1>'. |
$ENV{'user.error.msg'}= |
'</form></body></html>'); |
$r->uri.":vgr:0:0:Access Permission Denied"; |
return OK; |
return HTTP_NOT_ACCEPTABLE; |
} |
} |
} |
} |
if ((($name ne $ENV{'user.name'} ) || |
if ((($name ne $ENV{'user.name'} ) || |
($domain ne $ENV{'user.domain'})) && $sheettype ne 'classcalc') { |
($domain ne $ENV{'user.domain'})) && $sheettype ne 'classcalc') { |
Line 278 sub handler {
|
Line 271 sub handler {
|
my $stu_sec = &Apache::lonnet::usection($domain,$name, |
my $stu_sec = &Apache::lonnet::usection($domain,$name, |
$ENV{'request.course.id'}); |
$ENV{'request.course.id'}); |
if ($stu_sec ne $ENV{'request.course.sec'}) { |
if ($stu_sec ne $ENV{'request.course.sec'}) { |
$r->print |
$ENV{'user.error.msg'}= |
('<h1>The student requested is not in your section.</h1>'. |
$r->uri.":vgr:0:0:Requested student not in your section."; |
'</form></body></html>'); |
return HTTP_NOT_ACCEPTABLE; |
return OK; |
|
} |
} |
} |
} |
} |
} |
|
|
# |
# |
|
# Open page, try to prevent browser cache. |
|
# |
|
$r->content_type('text/html'); |
|
&Apache::loncommon::no_cache($r); |
|
$r->send_http_header; |
|
|
|
# |
# Header.... |
# Header.... |
# |
# |
$r->print('<html><head><title>LON-CAPA Spreadsheet</title>'); |
$r->print('<html><head><title>LON-CAPA Spreadsheet</title>'); |