[WWcvs] pg: HEAD backport: relative tolerence was not being used correctly.

[Sam H. v. a. <act...@de...>]

Log Message:
-----------
HEAD backport: relative tolerence was not being used correctly. Fixed
this. (apizer)

Tags:
----
rel-2-1-patches

Modified Files:
--------------
    pg/macros:
        PGcomplexmacros.pl

Revision Data
-------------
Index: PGcomplexmacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGcomplexmacros.pl,v
retrieving revision 1.7
retrieving revision 1.7.2.1
diff -Lmacros/PGcomplexmacros.pl -Lmacros/PGcomplexmacros.pl -u -r1.7 -r1.7.2.1
--- macros/PGcomplexmacros.pl
+++ macros/PGcomplexmacros.pl
@@ -122,7 +122,7 @@
 	my $mode		=	$cplx_params{'mode'};
 	
 	if( $cplx_params{tolType} eq 'relative' ) {
-		$cplx_params{'tolerance'} = .01*$cplx_params{'tolerance'};
+		$cplx_params{'tolerance'} = .01*$cplx_params{'relTol'};
 	}
 	
 	my $formattedCorrectAnswer;
@@ -303,7 +303,7 @@
 	
 	
 	if( $mult_params{tolType} eq 'relative' ) {
-		$mult_params{'tolerance'} = .01*$mult_params{'tolerance'};
+		$mult_params{'tolerance'} = .01*$mult_params{'relTol'};
 	}
 	
 	if( $mult_params{ 'compare' } eq 'cplx' ){
@@ -766,7 +766,7 @@
 	my $mode		=	$cplx_params{'mode'};
 	
 	if( $cplx_params{tolType} eq 'relative' ) {
-		$cplx_params{'tolerance'} = .01*$cplx_params{'tolerance'};
+		$cplx_params{'tolerance'} = .01*$cplx_params{'relTol'};
 	}
 	
 	my $formattedCorrectAnswer;
@@ -954,7 +954,7 @@
 	my $mode		=	$cplx_params{'mode'};
 	
 	if( $cplx_params{tolType} eq 'relative' ) {
-		$cplx_params{'tolerance'} = .01*$cplx_params{'tolerance'};
+		$cplx_params{'tolerance'} = .01*$cplx_params{'relTol'};
 	}
 	
 	my $formattedCorrectAnswer;