loncom/homework/default_homework.lcpm - diff

Return to default_homework.lcpm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.67, 2003/09/25 22:57:01	version 1.68, 2003/10/23 13:56:07
Line 503 sub prettyprint {	Line 503 sub prettyprint {
my $dollarmode;	my $dollarmode;
if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }	if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }
if ($fmt) { $value=sprintf('%.'.$fmt,$value); }	if ($fmt) { $value=sprintf('%.'.$fmt,$value); }
if ($value =~ /([0-9\.\-\+]+)E([0-9\-\+]+)/ ) {	if ($value =~ /([0-9\.\-\+]+)E([0-9\-\+]+)/i ) {
my $frac=$1;	my $frac=$1;
if ($dollarmode) { $frac=&dollarformat($frac); }	if ($dollarmode) { $frac=&dollarformat($frac); }
my $exponent=$2;	my $exponent=$2;