loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.66, 2003/09/25 18:48:40	version 1.67, 2003/09/25 22:57:01
Line 490 sub format {	Line 490 sub format {
my ($value,$fmt)=@_;	my ($value,$fmt)=@_;
my $dollarmode;	my $dollarmode;
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }	if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }
$fmt=~/e/E/g;	$fmt=~s/e/E/g;
my $result=sprintf('%.'.$fmt,$value);	my $result=sprintf('%.'.$fmt,$value);
$result=~s/(E[+-]*)0/$1/;	$result=~s/(E[+-]*)0/$1/;
if ($dollarmode) {$result=&dollarmode($result);}	if ($dollarmode) {$result=&dollarmode($result);}