[WWcvs] pg: Allow inequalities to include infinity and -infinity (so you can enter -inf < x < inf to get all reals).

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

Log Message:
-----------
Allow inequalities to include infinity and -infinity (so you can enter
-inf < x < inf to get all reals).

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

Revision Data
-------------
Index: contextInequalities.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextInequalities.pl,v
retrieving revision 1.12
retrieving revision 1.13
diff -Lmacros/contextInequalities.pl -Lmacros/contextInequalities.pl -u -r1.12 -r1.13
--- macros/contextInequalities.pl
+++ macros/contextInequalities.pl
@@ -155,7 +155,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->{isConstant}) {
+  if (($n->isNumber || $n->{isInfinite}) && $n->{isConstant}) {
     if ($v->class eq 'Variable') {
       $self->{varName} = $v->{name};
       delete $self->{equation}{variables}{$v->{name}} if $v->{isNew};