loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.330, 2011/11/14 00:20:39	version 1.331, 2011/11/29 13:24:38
Line 442 sub check_access {	Line 442 sub check_access {
$Apache::lonhomework::results{'resource.'.$id.'.maxtries'}=$maxtries;	$Apache::lonhomework::results{'resource.'.$id.'.maxtries'}=$maxtries;
if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }	if ($maxtries && $tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }
# if (correct and show prob status) or excused then CANNOT_ANSWER	# if (correct and show prob status) or excused then CANNOT_ANSWER
if(($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/	if ( ($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/)
&&	&& (&show_problem_status()) ) {
&show_problem_status()	if (&Apache::inputtags::grading_is_nonlenient($id) \|\|
&&	$Apache::lonhomework::history{"resource.$id.awarded"} == 1) {
$Apache::lonhomework::history{"resource.$id.awarded"}==1)	$status = 'CANNOT_ANSWER';
\|\|	}
$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {	} elsif ($Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
if ($status eq 'CANNOT_ANSWER'	if ($status eq 'CANNOT_ANSWER'