loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.230, 2005/12/21 17:53:25	version 1.231, 2005/12/21 19:05:05
Line 295 sub check_slot_access {	Line 295 sub check_slot_access {
$slotstatus='CAN_ANSWER';	$slotstatus='CAN_ANSWER';
}	}

my ($pass_status,$checkedin);	my ($got_grade,$checkedin);
if ($type eq 'Task') {	if ($type eq 'Task') {
my $version=$Apache::lonhomework::history{'resource.0.version'};	my $version=$Apache::lonhomework::history{'resource.0.version'};
$pass_status =	$got_grade =
$Apache::lonhomework::history{"resource.$version.0.status"} eq 'fail';	($Apache::lonhomework::history{"resource.$version.0.status"}
	=~ /^(?:pass\|fail)$/);
$checkedin =	$checkedin =
$Apache::lonhomework::history{"resource.$version.0.checkedin"};	$Apache::lonhomework::history{"resource.$version.0.checkedin"};
} elsif ($type eq 'problem') {	} elsif ($type eq 'problem') {
$pass_status = 1;	$got_grade = 1;
$checkedin = $Apache::lonhomework::history{"resource.0.checkedin"};	$checkedin = $Apache::lonhomework::history{"resource.0.checkedin"};
}	}

if ($slotstatus eq 'NOT_IN_A_SLOT'	if ($slotstatus eq 'NOT_IN_A_SLOT'
&& $checkedin ) {	&& $checkedin ) {

if ($pass_status) {	if ($got_grade) {
return ('SHOW_ANSWER');	return ('SHOW_ANSWER');
} else {	} else {
return ('WAITING_FOR_GRADE');	return ('WAITING_FOR_GRADE');