loncom/interface/multidownload.pl - diff

Return to multidownload.pl CVS log

Up to [LON-CAPA] / loncom / interface

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__;