version 1.107, 2003/07/28 18:29:05
|
version 1.109, 2003/09/19 21:48:00
|
Line 194 sub end_numericalresponse {
|
Line 194 sub end_numericalresponse {
|
} |
} |
my $formatted; |
my $formatted; |
if ((defined($format)) && ($format ne '')) { |
if ((defined($format)) && ($format ne '')) { |
|
$format=~s/e/E/g; |
&Apache::lonxml::debug("formatting with :$format: answer :$answer:"); |
&Apache::lonxml::debug("formatting with :$format: answer :$answer:"); |
$formatted=sprintf('%.'.$format,$answer).','; |
$formatted=sprintf('%.'.$format,$answer).','; |
} else { |
} else { |
Line 366 sub end_numericalresponse {
|
Line 367 sub end_numericalresponse {
|
if ($target eq 'answer') { |
if ($target eq 'answer') { |
if ($ENV{'form.answer_output_mode'} eq 'tex') { |
if ($ENV{'form.answer_output_mode'} eq 'tex') { |
$result.=&Apache::response::answer_part($$tagstack[-1], |
$result.=&Apache::response::answer_part($$tagstack[-1], |
"\\textbf{$string}"); |
"$string"); |
} else { |
} else { |
$result.=&Apache::response::answer_part($$tagstack[-1], |
$result.=&Apache::response::answer_part($$tagstack[-1], |
"<b>$string</b>"); |
"<b>$string</b>"); |
Line 416 sub format_number {
|
Line 417 sub format_number {
|
my ($number,$format,$target)=@_; |
my ($number,$format,$target)=@_; |
my $ans; |
my $ans; |
if ($format ne '') { |
if ($format ne '') { |
|
$format=~s/e/E/g; |
$ans = sprintf('%.'.$format,$number); |
$ans = sprintf('%.'.$format,$number); |
} else { |
} else { |
my $format = ''; |
my $format = ''; |