[WWcvs] pg: New flag showAllErrors for when a custom checker is supplied.

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

Log Message:
-----------
New flag showAllErrors for when a custom checker is supplied.  This
will cause all errors generated in the user's code to be reported
(normally, messages from the Value and Parser packages are ignored).

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.46
retrieving revision 1.47
diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.46 -r1.47
--- lib/Value/AnswerChecker.pm
+++ lib/Value/AnswerChecker.pm
@@ -161,7 +161,7 @@
   my $self = shift; my $other = shift; my $ans = shift;
   return eval {$self == $other} unless ref($ans->{checker}) eq 'CODE';
   my $equal = eval {&{$ans->{checker}}($self,$other,$ans)};
-  if (!defined($equal) && $@ ne '' && !$$Value::context->{error}{flag}) {
+  if (!defined($equal) && $@ ne '' && (!$$Value::context->{error}{flag} || $ans->{showAllErrors})) {
     $$Value::context->setError("<I>An error occurred while checking your answer:</I>\n".
       '<DIV STYLE="margin-left:1em">'.$@.'</DIV>','');
     $$Value::context->{error}{flag} = $CMP_ERROR;