loncom/homework/response.pm - diff

Return to response.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.228, 2011/11/29 13:24:38	version 1.229, 2011/11/29 17:43:30
Line 491 sub end_customresponse {	Line 491 sub end_customresponse {
$result .= &Apache::response::answer_footer('customresponse');	$result .= &Apache::response::answer_footer('customresponse');
}	}
if ($target eq 'web') {	if ($target eq 'web') {
&setup_prior_tries_hash(\&format_prior_response_math);	&setup_prior_tries_hash(\&format_prior_response_custom);
}	}
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') {
Line 512 sub end_customresponse {	Line 512 sub end_customresponse {

sub format_prior_response_custom {	sub format_prior_response_custom {
my ($mode,$answer) =@_;	my ($mode,$answer) =@_;
	if (ref($answer) eq 'ARRAY') {
	$answer = '('.join(', ', @{ $answer }).')';
	}
return '<span class="LC_prior_custom">'.	return '<span class="LC_prior_custom">'.
&HTML::Entities::encode($answer,'"<>&').'</span>';	&HTML::Entities::encode($answer,'"<>&').'</span>';
}	}