From: dpvc v. a. <we...@ma...> - 2005-09-17 12:38:48
|
Log Message: ----------- Better error messages for unreduced unions. 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.62 retrieving revision 1.63 diff -Llib/Value/AnswerChecker.pm -Llib/Value/AnswerChecker.pm -u -r1.62 -r1.63 --- lib/Value/AnswerChecker.pm +++ lib/Value/AnswerChecker.pm @@ -260,12 +260,12 @@ !$ans->{isPreview} && !Value::isFormula($student); if ($student->type eq 'Union' && $student->length >= 2) { my $reduced = $student->reduce; - return "Your$nth union can be written in a simpler form" + return "Your$nth union can be written without overlaps" unless $reduced->type eq 'Union' && $reduced->length == $student->length; my @R = $reduced->sort->value; my @S = $student->sort->value; foreach my $i (0..$#R) { - return "Your$nth union can be written in a simpler form" + return "Your$nth union can be written without overlaps" unless $R[$i] == $S[$i] && $R[$i]->length == $S[$i]->length; } } elsif ($student->type eq 'Set' && $student->length >= 2) { |