loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.180, 2007/10/15 09:47:29	version 1.182, 2007/11/05 11:46:08
Line 898 sub getresponse {	Line 898 sub getresponse {
$response = $env{'scantron.'.	$response = $env{'scantron.'.
($Apache::lonxml::counter+$offset-1+$line).	($Apache::lonxml::counter+$offset-1+$line).
'.answer'};	'.answer'};
if ($response ne "") {	if ((defined($response)) && ($response ne " ")) {
last;	last;
}	}

Line 1050 sub show_answer {	Line 1050 sub show_answer {
my $award = $Apache::lonhomework::history{"resource.$part.solved"};	my $award = $Apache::lonhomework::history{"resource.$part.solved"};
my $status = $Apache::inputtags::status[-1];	my $status = $Apache::inputtags::status[-1];
return ( ($award =~ /^correct/	return ( ($award =~ /^correct/
&& lc($Apache::lonhomework::problemstatus) ne 'no')	&& &Apache::lonhomework::show_problem_status())
\|\| $status eq "SHOW_ANSWER");	\|\| $status eq "SHOW_ANSWER");
}	}