loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.121, 2003/05/08 15:33:15	version 1.123, 2003/05/09 22:24:05
Line 50 use Apache::essayresponse();	Line 50 use Apache::essayresponse();
use Apache::externalresponse();	use Apache::externalresponse();
use Apache::rankresponse();	use Apache::rankresponse();
use Apache::matchresponse();	use Apache::matchresponse();
use Apache::chemresponse();	#use Apache::chemresponse();
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use HTML::Entities();	use HTML::Entities();
use Apache::loncommon();	use Apache::loncommon();
Line 214 sub check_access {	Line 214 sub check_access {
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($Apache::lonhomework::history{"resource.$id.solved"}=~/^correct/
	&& lc($Apache::lonhomework::problemstatus) ne 'no') {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
}	}