[WWcvs] pg: Let Parser object's cmp(debug=>1) option set the debug feature of

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

Log Message:
-----------
Let Parser object's cmp(debug=>1) option set the debug feature of the
answer evaluator.

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.69
retrieving revision 1.70
diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.69 -r1.70
--- lib/Value/AnswerChecker.pm
+++ lib/Value/AnswerChecker.pm
@@ -69,6 +69,7 @@
     %{$self->{context}{cmpDefaults}{$self->class} || {}},  # context-specified defaults
     @_
   );
+  $ans->{debug} = $ans->{rh_ans}{debug};
   $ans->install_evaluator(sub {$ans = shift; $ans->{correct_value}->cmp_parse($ans)});
   $ans->install_pre_filter('erase') if $self->{ans_name}; # don't do blank check if answer_array
   return $ans;