loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.181, 2007/10/17 00:22:51	version 1.183, 2007/11/06 11:48:48
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 907 sub getresponse {	Line 907 sub getresponse {
# save bubbled letter for later	# save bubbled letter for later
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;	$response;

if ($resulttype ne 'letter') {	if ($resulttype ne 'letter') {
if ($resulttype eq 'A is 1') {	if ($resulttype eq 'A is 1') {
$response = $let_to_num{$response}+1;	$response = $let_to_num{$response}+1;