version 1.5, 2007/04/26 01:04:21
|
version 1.6, 2007/04/26 17:36:10
|
Line 62 END
|
Line 62 END
|
&Apache::loncommon::content_type(undef,'text/html'); |
&Apache::loncommon::content_type(undef,'text/html'); |
my $identifier = $ENV{'QUERY_STRING'}; |
my $identifier = $ENV{'QUERY_STRING'}; |
print(&Apache::loncommon::start_page('Multiple Downloads')); |
print(&Apache::loncommon::start_page('Multiple Downloads')); |
my $scope .= '/'.$env{'request.course.sec'}; |
|
if (&Apache::lonnet::allowed('vgr',$scope)) { |
my $scope = $env{'request.course.id'}; |
|
if ($env{'request.course.sec'}) { |
|
$scope .= '/'.$env{'request.course.sec'}; |
|
} |
|
if (&Apache::lonnet::allowed('vgr',$scope) eq 'F') { |
my $symb = $env{'cgi.'.$identifier.'.symb'}; |
my $symb = $env{'cgi.'.$identifier.'.symb'}; |
my $courseid = $env{'request.course.id'}; |
my $courseid = $env{'request.course.id'}; |
my @stuchecked = split(/\n/,$env{'cgi.'.$identifier.'.students'}); |
my @stuchecked = split(/\n/,$env{'cgi.'.$identifier.'.students'}); |
Line 107 if (&Apache::lonnet::allowed('vgr',$scop
|
Line 111 if (&Apache::lonnet::allowed('vgr',$scop
|
} else { |
} else { |
print('You are not authorized to download student submissions.'); |
print('You are not authorized to download student submissions.'); |
} |
} |
|
1; |
|
__END__; |