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);
|
