Diff for /loncom/homework/default_homework.lcpm between versions 1.65 and 1.66

version 1.65, 2003/09/18 18:54:35 version 1.66, 2003/09/25 18:48:40
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;
   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);}

Removed from v.1.65  
changed lines
  Added in v.1.66


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>