[WWcvs] pg: level_curve_check now forces the use of the old style (not

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

Log Message:
-----------
level_curve_check now forces the use of the old style (not Parser::Legacy)
answer evaluators resolving bug 820.

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

Revision Data
-------------
Index: PGdiffeqmacros.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGdiffeqmacros.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -Lmacros/PGdiffeqmacros.pl -Lmacros/PGdiffeqmacros.pl -u -r1.3 -r1.4
--- macros/PGdiffeqmacros.pl
+++ macros/PGdiffeqmacros.pl
@@ -674,6 +674,8 @@
     my $diffEqRHS = shift;    #required differential equation
     my $correctEqn = shift;   # required answer in order to check the equation
     my %options = @_;
+	my $saveUseOldAnswerMacros = main::PG_restricted_eval('$main::useOldAnswerMacros') || 0;
+	main::PG_restricted_eval('$main::useOldAnswerMacros = 1');
     assign_option_aliases( \%options,
 			  'vars'			=>		'var',
 			  'numPoints'		=>		'num_of_points',
@@ -803,6 +805,7 @@
 							  $rh_ans;
 						      });
     
+	main::PG_restricted_eval('$main::useOldAnswerMacros = '.$saveUseOldAnswerMacros);
     $answer_evaluator;
     
 }