version 1.176, 2005/07/14 05:50:33
|
version 1.178, 2005/08/17 16:37:11
|
Line 389 sub end_numericalresponse {
|
Line 389 sub end_numericalresponse {
|
if ($unit=~/\$/) { $fmt="\$".$fmt; $unit=~s/\$//g; } |
if ($unit=~/\$/) { $fmt="\$".$fmt; $unit=~s/\$//g; } |
if ($unit=~/\,/) { $fmt="\,".$fmt; $unit=~s/\,//g; } |
if ($unit=~/\,/) { $fmt="\,".$fmt; $unit=~s/\,//g; } |
$ans = &format_number($ans,$fmt,$target,$safeeval); |
$ans = &format_number($ans,$fmt,$target,$safeeval); |
|
if ($fmt=~/\$/ && $unit!~/\$/) { $ans=~s/\$//; } |
} |
} |
push(@fmt_ans,$ans); |
push(@fmt_ans,$ans); |
} |
} |
Line 760 sub end_stringresponse {
|
Line 761 sub end_stringresponse {
|
# foreach my $ans (@answers) { |
# foreach my $ans (@answers) { |
if ($target eq 'answer') { |
if ($target eq 'answer') { |
$result.=&Apache::response::answer_part('stringresponse',$answer); |
$result.=&Apache::response::answer_part('stringresponse',$answer); |
|
if ($type eq 're') { |
|
$result.=&Apache::response::answer_part('stringresponse', |
|
$answerdisplay); |
|
} |
} elsif ($target eq 'analyze') { |
} elsif ($target eq 'analyze') { |
push (@{ $Apache::lonhomework::analyze{"$part.$id.answer"} }, |
push (@{ $Apache::lonhomework::analyze{"$part.$id.answer"} }, |
$answer); |
$answer); |