[WWcvs] pg: Dereference aliases to aliases properly.

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

Log Message:
-----------
Dereference aliases to aliases properly.

Modified Files:
--------------
    pg/lib/Parser:
        String.pm

Revision Data
-------------
Index: String.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/String.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -Llib/Parser/String.pm -Llib/Parser/String.pm -u -r1.9 -r1.10
--- lib/Parser/String.pm
+++ lib/Parser/String.pm
@@ -22,7 +22,7 @@
     $def = undef if $def->{caseSensitive} && $value ne uc($value);
   }
   $value = $def->{alias}, $def = $equation->{context}{strings}{$value}
-    if defined($def->{alias});
+    while defined($def->{alias});
   my $str = bless {
     value => $value, type => $Value::Type{string}, isConstant => 1,
     def => $def, ref => $ref, equation => $equation,