[WWcvs] pg: Fixed problem with domain errors

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

Log Message:
-----------
Fixed problem with domain errors

Modified Files:
--------------
    pg/macros:
        answerComposition.pl

Revision Data
-------------
Index: answerComposition.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/answerComposition.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -Lmacros/answerComposition.pl -Lmacros/answerComposition.pl -u -r1.8 -r1.9
--- macros/answerComposition.pl
+++ macros/answerComposition.pl
@@ -191,7 +191,7 @@
 	"Your formula my not be the composition itself";
       $error = 1; next;
     }
-    if ($student{$i} == $x{$i}) {
+    if (Parser::Formula($x{$i}) == $student{$i}) {
       $ans{$i}->{rh_ans}{ans_message} = "The identity function is not allowed"
 	unless $isPreview;
       $error = 1; next;