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.206, 2007/01/23 22:00:16
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,