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(@_);
}
#
|
