[WWcvs] pg: remove number pattern so that strings can start with digits

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

Log Message:
-----------
remove number pattern so that strings can start with digits

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

Revision Data
-------------
Index: contextString.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/contextString.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -Lmacros/contextString.pl -Lmacros/contextString.pl -u -r1.14 -r1.15
--- macros/contextString.pl
+++ macros/contextString.pl
@@ -80,6 +80,7 @@
 sub Init {
   my $context = $main::context{String} = Parser::Context->getCopy("Numeric");
   $context->{name} = "String";
+  $context->{pattern}{number} = qr/^$/;
   $context->parens->clear();
   $context->variables->clear();
   $context->constants->clear();