[WWcvs] pg: Made relative tolerances the default for when the tolType is not one

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

Log Message:
-----------
Made relative tolerances the default for when the tolType is not one
of 'relative' or 'absolute'.

Modified Files:
--------------
    pg/lib/Parser/Legacy:
        PGanswermacros.pl

Revision Data
-------------
Index: PGanswermacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Legacy/PGanswermacros.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -Llib/Parser/Legacy/PGanswermacros.pl -Llib/Parser/Legacy/PGanswermacros.pl -u -r1.10 -r1.11
--- lib/Parser/Legacy/PGanswermacros.pl
+++ lib/Parser/Legacy/PGanswermacros.pl
@@ -1044,7 +1044,7 @@
 	#  Hack to fix up exponential notation in correct answer
 	#  (e.g., perl will pass .0000001 as 1e-07).
 	#
-	$correctAnswer = Value::Real->new($correctAnswer)->string
+	$correctAnswer = uc($correctAnswer)
 	  if $correctAnswer =~ m/e/ && Value::isNumber($correctAnswer);
 
 	#
@@ -1086,15 +1086,15 @@
 	#
 	#  Set the tolerances
 	#
-	if ($num_params{tolType} eq 'relative') {
+	if ($num_params{tolType} eq 'absolute') {
 	  $context->flags->set(
-	    tolerance => .01*$num_params{tolerance},
-	    tolType => 'relative',
+	    tolerance => $num_params{tolerance},
+	    tolType => 'absolute',
 	  );
 	} else {
 	  $context->flags->set(
-	    tolerance => $num_params{tolerance},
-	    tolType => 'absolute',
+	    tolerance => .01*$num_params{tolerance},
+	    tolType => 'relative',
 	  );
 	}
 	$context->flags->set(