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]; |