[WWcvs] pg: Fixed problem with variable patterns for variable names that are more than one character long.

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

Log Message:
-----------
Fixed problem with variable patterns for variable names that are more
than one character long.

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

Revision Data
-------------
Index: PGfunctionevaluators.pl
===================================================================
RCS file: /webwork/cvs/system/pg/macros/PGfunctionevaluators.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -Lmacros/PGfunctionevaluators.pl -Lmacros/PGfunctionevaluators.pl -u -r1.2 -r1.3
--- macros/PGfunctionevaluators.pl
+++ macros/PGfunctionevaluators.pl
@@ -726,14 +726,7 @@
 	#  Add the variables and parameters to the context
 	#
 	my %variables; my $x;
-	foreach $x (@{$func_params{'var'}}) {
-	  if (length($x) > 1) {
-	    $context->{_variables}->{pattern} = $context->{_variables}->{namePattern} =
-	      $x . '|' . $context->{_variables}->{pattern};
-	    $context->update;
-	  }
-	  $variables{$x} = 'Real';
-	}
+	foreach $x (@{$func_params{'var'}})    {$variables{$x} = 'Real'}
 	foreach $x (@{$func_params{'params'}}) {$variables{$x} = 'Parameter'}
 	$context->variables->are(%variables);