loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.284, 2007/11/13 23:26:08	version 1.285, 2007/11/17 02:51:29
Line 494 sub check_access {	Line 494 sub check_access {
$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {	$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';
}	}
	if ($status eq 'CANNOT_ANSWER'
	&& &show_answer_problem_status()) {
	$status = 'SHOW_ANSWER';
	}
}	}
if ($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {	if ($status eq 'CAN_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {
my $interval=&Apache::lonnet::EXT("resource.$id.interval");	my $interval=&Apache::lonnet::EXT("resource.$id.interval");
Line 883 sub analyze {	Line 887 sub analyze {

sub show_problem_status {	sub show_problem_status {
return ($show_problem_status eq 'yes'	return ($show_problem_status eq 'yes'
	\|\| $show_problem_status eq 'answer'
\|\| $show_problem_status eq '');	\|\| $show_problem_status eq '');
}	}

Line 893 sub analyze {	Line 898 sub analyze {
sub show_no_problem_status {	sub show_no_problem_status {
return ($show_problem_status eq 'no_feedback_ever');	return ($show_problem_status eq 'no_feedback_ever');
}	}

	sub show_answer_problem_status {
	return ($show_problem_status eq 'answer');
	}
}	}

sub editxmlmode {	sub editxmlmode {