loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

Up to [LON-CAPA] / loncom / homework / caparesponse

version 1.205, 2006/12/19 14:53:18	version 1.207, 2007/01/25 21:02:25
Line 237 sub set_answertext {	Line 237 sub set_answertext {
$response_level) = @_;	$response_level) = @_;
&add_in_tag_answer($parstack,$safeeval,$response_level);	&add_in_tag_answer($parstack,$safeeval,$response_level);

	if ($name eq '' \|\| !ref($answer{$name})) {
	if (ref($answer{$tag_internal_answer_name})) {
	$name = $tag_internal_answer_name;
	} else {
	$name = (sort(keys(%answer)))[0];
	}
	}
return if ($name eq '' \|\| !ref($answer{$name}));	return if ($name eq '' \|\| !ref($answer{$name}));

my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,	my (@formats)=&Apache::lonxml::get_param_var('format',$parstack,
Line 410 sub end_numericalresponse {	Line 417 sub end_numericalresponse {
&Apache::lonxml::debug($$parstack[-1] . "\n<br>");	&Apache::lonxml::debug($$parstack[-1] . "\n<br>");

if ( &Apache::response::submitted('scantron')) {	if ( &Apache::response::submitted('scantron')) {
	&add_in_tag_answer($parstack,$safeeval);
my ($values,$display)=&make_numerical_bubbles($partid,$id,	my ($values,$display)=&make_numerical_bubbles($partid,$id,
$target,$parstack,$safeeval);	$target,$parstack,$safeeval);
$response=$values->[$response];	$response=$values->[$response];