[WWcvs] pg: Make upper-case alias a hidden one (since it is not needed for the

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

Log Message:
-----------
Make upper-case alias a hidden one (since it is not needed for the
pattern).

Modified Files:
--------------
    pg/lib/Parser/Context:
        Strings.pm

Revision Data
-------------
Index: Strings.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Context/Strings.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/Parser/Context/Strings.pm -Llib/Parser/Context/Strings.pm -u -r1.6 -r1.7
--- lib/Parser/Context/Strings.pm
+++ lib/Parser/Context/Strings.pm
@@ -70,7 +70,7 @@
 }
 
 #
-#  Add lower-case alias for case-insensitive strings
+#  Add upper-case alias for case-insensitive strings
 #  (so we can always find their definitions)
 #
 sub add {
@@ -79,7 +79,7 @@
   $self->SUPER::add(@_);
   my %D = (@_);
   foreach my $x (keys %D) {
-    $data->{uc($x)} = {alias => $x} 
+    $data->{uc($x)} = {alias => $x, hidden => 1} 
       unless $data->{$x}{caseSensitive} || uc($x) eq $x;
   }
 }