loncom/homework/caparesponse/caparesponse.pm - diff

Return to caparesponse.pm CVS log

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

version 1.212, 2007/04/17 23:25:24	version 1.213, 2007/04/26 23:15:43
Line 465 sub add_in_tag_answer {	Line 465 sub add_in_tag_answer {
my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,	my @answer=&Apache::lonxml::get_param_var('answer',$parstack,$safeeval,
$response_level);	$response_level);
&Apache::lonxml::debug('answer is'.join(':',@answer));	&Apache::lonxml::debug('answer is'.join(':',@answer));
if (@answer && defined($answer[0])) {	if (@answer && $answer[0] =~ /\S/) {
$answer{$tag_internal_answer_name}= {'type' => 'ordered',	$answer{$tag_internal_answer_name}= {'type' => 'ordered',
'answers' => [\@answer] };	'answers' => [\@answer] };
}	}
Line 794 sub end_numericalresponse {	Line 794 sub end_numericalresponse {

sub format_prior_response_numerical {	sub format_prior_response_numerical {
my ($mode,$answer) = @_;	my ($mode,$answer) = @_;
#FIXME needs to support multianswer modes	if (ref($answer)) {
	my $result = '<table class="LC_prior_numerical"><tr>';
	foreach my $element (@{ $answer }) {
	$result.= '<td><span class="LC_prior_numerical">'.
	&HTML::Entities::encode($element,'"<>&').'</span></td>';
	}
	$result.='</tr></table>';
	return $result;
	}
return '<span class="LC_prior_numerical">'.	return '<span class="LC_prior_numerical">'.
&HTML::Entities::encode($answer,'"<>&').'</span>';	&HTML::Entities::encode($answer,'"<>&').'</span>';