version 1.221.2.1, 2011/10/08 20:51:30
|
version 1.221.2.2, 2011/11/29 18:44:31
|
Line 489 sub end_customresponse {
|
Line 489 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 510 sub end_customresponse {
|
Line 510 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>'; |
} |
} |