[WWcvs] pg: Make the TeX output for <= be \le rather than <=

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

Log Message:
-----------
Make the TeX output for <= be \le rather than <=

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

Revision Data
-------------
Index: contextInequalities.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextInequalities.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -Lmacros/contextInequalities.pl -Lmacros/contextInequalities.pl -u -r1.8 -r1.9
--- macros/contextInequalities.pl
+++ macros/contextInequalities.pl
@@ -539,8 +539,8 @@
   my $x = $self->{varName} || ($context->variables->names)[0];
   $x = $context->{variables}{$x}{TeX} if defined $context->{variables}{$x}{TeX};
   $x =~ s/^([^_]+)_?(\d+)$/$1_{$2}/;
-  my $left  = ($open  eq '(' ? ' < ' : ' <= ');
-  my $right = ($close eq ')' ? ' < ' : ' <= ');
+  my $left  = ($open  eq '(' ? ' < ' : ' \le ');
+  my $right = ($close eq ')' ? ' < ' : ' \le ');
   my $inequality = "";
   $inequality .= $a->string.$left unless $self->{leftInfinite};
   $inequality .= $x;