loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.163, 2004/02/13 21:21:30	version 1.164, 2004/02/13 21:27:22
Line 267 sub check_access {	Line 267 sub check_access {
my $tries = $Apache::lonhomework::history{"resource.$id.tries"};	my $tries = $Apache::lonhomework::history{"resource.$id.tries"};
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 '' &&
if ($tries >= $maxtries) { $status = 'CANNOT_ANSWER'; }	$ENV{'request.state'} ne 'construct') { $maxtries = '2'; }
	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/
&&	&&