[WWcvs] pg: Better check for constant formula.

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

Log Message:
-----------
Better check for constant formula.

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

Revision Data
-------------
Index: contextInequalities.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextInequalities.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -Lmacros/contextInequalities.pl -Lmacros/contextInequalities.pl -u -r1.17 -r1.18
--- macros/contextInequalities.pl
+++ macros/contextInequalities.pl
@@ -174,7 +174,7 @@
   ($self->{varPos},$self->{numPos}) =
     ($self->{lop}->class eq 'Variable' || $self->{lop}{isInequality} ? ('lop','rop') : ('rop','lop'));
   my ($v,$n) = ($self->{$self->{varPos}},$self->{$self->{numPos}});
-  if (($n->isNumber || $n->{isInfinite}) && $n->{isConstant}) {
+  if (($n->isNumber || $n->{isInfinite}) && ($n->{isConstant} || scalar(keys %{$n->getVariables}) == 0)) {
     if ($v->class eq 'Variable') {
       $self->{varName} = $v->{name};
       delete $self->{equation}{variables}{$v->{name}} if $v->{isNew};