loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.128, 2003/05/16 17:41:17	version 1.129, 2003/05/16 19:01:27
Line 214 sub check_access {	Line 214 sub check_access {
my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");	my $maxtries = &Apache::lonnet::EXT("resource.$id.maxtries");
if ( $tries eq '' ) { $tries = '0'; }	if ( $tries eq '' ) { $tries = '0'; }
if ( $maxtries eq '' ) { $maxtries = '2'; }	if ( $maxtries eq '' ) { $maxtries = '2'; }
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }	if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }
if($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/	# if (correct and show prob status) or excused then CANNOT_ANSWER
&& lc($Apache::lonhomework::problemstatus) ne 'no') {	if(($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/
	&&
	lc($Apache::lonhomework::problemstatus) ne 'no')
	\|\|
	$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
}	}