From: dpvc v. a. <we...@ma...> - 2005-12-31 02:46:18
|
Log Message: ----------- Now that the Parser allows multi-letter variable names, there is no need to handle C0 specially. Modified Files: -------------- pg/lib/Value: AnswerChecker.pm Revision Data ------------- Index: AnswerChecker.pm =================================================================== RCS file: /webwork/cvs/system/pg/lib/Value/AnswerChecker.pm,v retrieving revision 1.73 retrieving revision 1.74 diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.73 -r1.74 --- lib/Value/AnswerChecker.pm +++ lib/Value/AnswerChecker.pm @@ -1336,9 +1336,7 @@ my $current = Parser::Context->current(); my $context = $self->{context} = $self->{context}->copy; Parser::Context->current(undef,$context); - $context->{_variables}->{pattern} = $context->{_variables}->{namePattern} = - 'C0|' . $context->{_variables}->{pattern}; - $context->update; $context->variables->add('C0' => 'Parameter'); + $context->variables->add('C0' => 'Parameter'); my $f = Value::Formula->new('C0')+$self; for ('limits','test_points','test_values','num_points','granularity','resolution', 'checkUndefinedPoints','max_undefined') |