loncom/homework/lonhomework.pm - diff

Return to lonhomework.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.323, 2011/02/06 18:43:10	version 1.325, 2011/03/07 19:42:21
Line 147 sub get_target {	Line 147 sub get_target {
} else {	} else {
if ($env{'form.problemstate'} eq 'WEB_GRADE') {	if ($env{'form.problemstate'} eq 'WEB_GRADE') {
return ('grade','webgrade','answer');	return ('grade','webgrade','answer');
	} elsif ($env{'form.problemmode'} eq 'view') {
	return ('grade','web','answer');
} elsif ($env{'form.problemmode'} eq 'saveview') {	} elsif ($env{'form.problemmode'} eq 'saveview') {
return ('modified','web','answer');	return ('modified','web','answer');
} elsif ($env{'form.problemmode'} eq 'discard') {	} elsif ($env{'form.problemmode'} eq 'discard') {
Line 436 sub check_access {	Line 438 sub check_access {
# 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/
&&	&&
&show_problem_status())	&show_problem_status()
	&&
	$Apache::lonhomework::history{"resource.$id.awarded"}==1)
\|\|	\|\|
$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {	$Apache::lonhomework::history{"resource.$id.solved"}=~/^excused/) {
$status = 'CANNOT_ANSWER';	$status = 'CANNOT_ANSWER';