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;
}
|
