[WWcvs] pg: Do the reduction check on sets when they are compared (to see if there are repeated values, for example).

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

Log Message:
-----------
Do the reduction check on sets when they are compared (to see if there
are repeated values, for example).

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.114
retrieving revision 1.115
diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.114 -r1.115
--- lib/Value/AnswerChecker.pm
+++ lib/Value/AnswerChecker.pm
@@ -1128,8 +1128,10 @@
 #
 sub cmp_equal {
   my ($self,$ans) = @_;
-  return Value::List::cmp_equal(@_) if $ans->{student_value}->type eq 'Set';
-  $self->SUPER::cmp_equal($ans);
+  return $self->SUPER::cmp_equal($ans) unless $ans->{student_value}->type eq 'Set';
+  my $error = $self->cmp_checkUnionReduce($ans->{student_value},$ans);
+  if ($error) {$self->cmp_Error($ans,$error); return}
+  return Value::List::cmp_equal(@_);
 }
 
 #