loncom/interface/lonquickgrades.pm - diff

Return to lonquickgrades.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.49.6.6.2.2, 2021/03/04 14:02:14	version 1.49.6.8, 2021/12/14 02:44:05
Line 67 sub real_handler {	Line 67 sub real_handler {
if ($env{'request.course.id'}) {	if ($env{'request.course.id'}) {
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my $clientip = &Apache::lonnet::get_requestor_ip($r);
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
&Apache::loncommon::blocking_status('grades',$cnum,$cdom);	&Apache::loncommon::blocking_status('grades',$clientip,$cnum,$cdom);
if ($blocked) {	if ($blocked) {
my $checkrole = "cm./$cdom/$cnum";	my $checkrole = "cm./$cdom/$cnum";
if ($env{'request.course.sec'} ne '') {	if ($env{'request.course.sec'} ne '') {
Line 84 sub real_handler {	Line 85 sub real_handler {

unless ($cangrade) {	unless ($cangrade) {
# Check for critical messages and redirect if present.	# Check for critical messages and redirect if present.
my ($redirect,$url) = &Apache::loncommon::critical_redirect(300,'grades');	my ($redirect,$url) = &Apache::loncommon::critical_redirect(300);
if ($redirect) {	if ($redirect) {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->header_out(Location => $url);	$r->header_out(Location => $url);