loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.373, 2018/09/18 14:30:19	version 1.374, 2018/09/20 14:16:51
Line 242 sub check_slot_access {	Line 242 sub check_slot_access {
$consumed_uniq = $slot{'uniqueperiod'};	$consumed_uniq = $slot{'uniqueperiod'};
if ($slot{'iptied'}) {	if ($slot{'iptied'}) {
$ipused = $Apache::lonhomework::history{"$checkin.ip"};	$ipused = $Apache::lonhomework::history{"$checkin.ip"};
unless (($ip ne '') && ($ipused eq $ip)) {	unless (($ip ne '') &&
	(($ipused eq $ip) \|\| ($ENV{'REMOTE_ADDR'} eq '127.0.0.1'))) {
$blockip = $slot{'iptied'};	$blockip = $slot{'iptied'};
$slot_name = $checkinslot;	$slot_name = $checkinslot;
$returned_slot = \%slot;	$returned_slot = \%slot;
Line 276 sub check_slot_access {	Line 277 sub check_slot_access {
return ('SHOW_ANSWER');	return ('SHOW_ANSWER');
}	}
}	}
	} elsif (($type eq 'problem') &&
	($Apache::lonhomework::browse eq 'F') &&
	($ENV{'REMOTE_ADDR'} eq '127.0.0.1') &&
	($env{'form.grade_courseid'} eq $env{'request.course.id'}) &&
	(&Apache::lonnet::allowed('mgr',$env{'request.course.id'}))) {
	return ($status,$datemsg);
}	}

my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb);	my $availablestudent = &Apache::lonnet::EXT("resource.0.availablestudent",$symb);
Line 369 sub check_slot_access {	Line 376 sub check_slot_access {
$earlyout = 1;	$earlyout = 1;
}	}
}	}
if (($currtries == $maxtries) \|\| ($is_correct)) {	if ($currtries == $maxtries) {
$earlyout = 1;	$earlyout = 1;
} else {	} else {
$numgraded ++;	$numgraded ++;