loncom/homework/grades.pm - diff

Return to grades.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.663, 2011/11/14 03:08:01	version 1.664, 2011/11/29 17:00:19
Line 9388 sub handler {	Line 9388 sub handler {
}	}
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});

	# see what command we need to execute

	my @commands=&Apache::loncommon::get_env_multiple('form.command');
	my $command=$commands[0];

&init_perm();	&init_perm();
if (!$env{'request.course.id'}) {	if (!$env{'request.course.id'}) {
# Not in a course.	unless ((&Apache::lonnet::allowed('usc',$env{'request.role.domain'})) &&
$env{'user.error.msg'}="/adm/grades::vgr:0:0:Cannot display grades page outside course context";	($command =~ /^scantronupload/)) {
return HTTP_NOT_ACCEPTABLE;	# Not in a course.
	$env{'user.error.msg'}="/adm/grades::vgr:0:0:Cannot display grades page outside course context";
	return HTTP_NOT_ACCEPTABLE;
	}
} elsif (!%perm) {	} elsif (!%perm) {
$request->internal_redirect('/adm/quickgrades');	$request->internal_redirect('/adm/quickgrades');
}	}
&Apache::loncommon::content_type($request,'text/html');	&Apache::loncommon::content_type($request,'text/html');
$request->send_http_header;	$request->send_http_header;


# see what command we need to execute

my @commands=&Apache::loncommon::get_env_multiple('form.command');
my $command=$commands[0];

if ($#commands > 0) {	if ($#commands > 0) {
&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));	&Apache::lonnet::logthis("grades got multiple commands ".join(':',@commands));
}	}