Diff for /loncom/homework/default_homework.lcpm between versions 1.49 and 1.50

version 1.49, 2002/09/20 18:19:25 version 1.50, 2002/09/20 21:11:18
Line 445  sub format { Line 445  sub format {
   my $dollarmode;    my $dollarmode;
   if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; }     if ($fmt =~ /^\$(.*)/) { $fmt=$1; $dollarmode=1; } 
   my $result=sprintf('%.'.$fmt,$value);    my $result=sprintf('%.'.$fmt,$value);
     $result=~s/(E[+-]*)0/$1/;
   if ($dollarmode) {$result=&dollarmode($result);}    if ($dollarmode) {$result=&dollarmode($result);}
   return $result;    return $result;
 }  }
Line 460  sub prettyprint { Line 461  sub prettyprint {
     if ($dollarmode) { $frac=&dollarformat($frac); }      if ($dollarmode) { $frac=&dollarformat($frac); }
     my $exponent=$2;      my $exponent=$2;
     $exponent=~s/^\+0*//;      $exponent=~s/^\+0*//;
       $exponent=~s/^-0*/-/;
     if ($exponent) {      if ($exponent) {
       if ($external::target eq 'web') {        if ($external::target eq 'web') {
  $result=$frac.'&#215;10<sup>'.$exponent.'</sup>';   $result=$frac.'&#215;10<sup>'.$exponent.'</sup>';

Removed from v.1.49  
changed lines
  Added in v.1.50


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