version 1.153, 2004/10/05 20:18:29
|
version 1.155, 2004/10/18 20:28:23
|
Line 298 sub end_numericalresponse {
|
Line 298 sub end_numericalresponse {
|
$Apache::lonhomework::analyze{"$part_id.type"} = $tag; |
$Apache::lonhomework::analyze{"$part_id.type"} = $tag; |
my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval); |
my (@incorrect)=&Apache::lonxml::get_param_var('incorrect',$parstack,$safeeval); |
push (@{ $Apache::lonhomework::analyze{"$part_id.incorrect"} }, @incorrect); |
push (@{ $Apache::lonhomework::analyze{"$part_id.incorrect"} }, @incorrect); |
|
&Apache::response::check_if_computed($token,$parstack, |
|
$safeeval,'answer'); |
} |
} |
if (scalar(@$tagstack)) { |
if (scalar(@$tagstack)) { |
&Apache::response::setup_params($tag,$safeeval); |
&Apache::response::setup_params($tag,$safeeval); |
Line 325 sub end_numericalresponse {
|
Line 327 sub end_numericalresponse {
|
if ($fmt && $tag eq 'numericalresponse') { |
if ($fmt && $tag eq 'numericalresponse') { |
$fmt=~s/e/E/g; |
$fmt=~s/e/E/g; |
$ans = &format_number($ans,$fmt,$target,$safeeval); |
$ans = &format_number($ans,$fmt,$target,$safeeval); |
if ($high) { |
#if ($high) { |
$high=&format_number($high,$fmt,$target,$safeeval); |
# $high=&format_number($high,$fmt,$target,$safeeval); |
$low =&format_number($low,$fmt,$target,$safeeval); |
# $low =&format_number($low,$fmt,$target,$safeeval); |
} |
#} |
} |
} |
if ($target eq 'answer') { |
if ($target eq 'answer') { |
if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; } |
if ($high && $tag eq 'numericalresponse') { $ans.=' ['.$low.','.$high.']'; } |
Line 654 sub end_stringresponse {
|
Line 656 sub end_stringresponse {
|
if ($target eq 'analyze') { |
if ($target eq 'analyze') { |
push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id"); |
push (@{ $Apache::lonhomework::analyze{"parts"} },"$part.$id"); |
$Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse'; |
$Apache::lonhomework::analyze{"$part.$id.type"} = 'stringresponse'; |
|
&Apache::response::check_if_computed($token,$parstack,$safeeval, |
|
'answer'); |
} |
} |
&Apache::response::setup_params('stringresponse',$safeeval); |
&Apache::response::setup_params('stringresponse',$safeeval); |
if ($target eq 'answer') { |
if ($target eq 'answer') { |