loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.177, 2007/09/25 20:18:56	version 1.179, 2007/10/08 09:22:50
Line 451 sub end_customresponse {	Line 451 sub end_customresponse {
}	}
if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|	if ($target eq 'grade' \|\| $target eq 'web' \|\| $target eq 'answer' \|\|
$target eq 'tex' \|\| $target eq 'analyze') {	$target eq 'tex' \|\| $target eq 'analyze') {
&Apache::lonxml::increment_counter(&Apache::response::repetition());	&Apache::lonxml::increment_counter(&Apache::response::repetition(),
	$part);
	if ($target eq 'analyze') {
	&Apache::lonhomework::set_bubble_lines();
	}
}	}
pop(@Apache::lonxml::namespace);	pop(@Apache::lonxml::namespace);
pop(@Apache::response::custom_answer);	pop(@Apache::response::custom_answer);
Line 899 sub getresponse {	Line 903 sub getresponse {
}	}

}	}

	# save bubbled letter for later
	$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
	$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;
Line 913 sub getresponse {	Line 922 sub getresponse {
$response = chr(ord($response) + $line * $bubbles_per_line);	$response = chr(ord($response) + $line * $bubbles_per_line);
}	}
}	}
# save submitted response for later
$Apache::lonhomework::results{"resource.$part.$id.scantron"}.=
$response;

} else {	} else {
$response = $env{$formparm};	$response = $env{$formparm};