[WWcvs] pg: Changed stringify to check for an answer that is zero by using the

[dpvc v. a. <we...@ma...>]

Log Message:
-----------
Changed stringify to check for an answer that is zero by using the
zeroLevelTol value directly (rather than use the fuzzy equality check
for zero, which depends on the tolType in a bad way).

Modified Files:
--------------
    pg/lib/Value:
        Real.pm

Revision Data
-------------
Index: Real.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Value/Real.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -Llib/Value/Real.pm -Llib/Value/Real.pm -u -r1.17 -r1.18
--- lib/Value/Real.pm
+++ lib/Value/Real.pm
@@ -207,7 +207,7 @@
     if ($format =~ m/#\s*$/) {$n =~ s/(\.\d*?)0*#$/$1/; $n =~ s/\.$//}
   }
   $n = uc($n); # force e notation to E
-  $n = 0 if $self == 0; # make near zero print as zero
+  $n = 0 if abs($n) < $$Value::context->flag('zeroLevelTol');
   $n = "(".$n.")" if ($n < 0 || $n =~ m/E/i) && defined($prec) && $prec >= 1;
   return $n;
 }