Log Message:
-----------
Handle TeX versions of variables whose names include underscores
better.
Modified Files:
--------------
pg/lib/Parser:
Variable.pm
Revision Data
-------------
Index: Variable.pm
===================================================================
RCS file: /webwork/cvs/system/pg/lib/Parser/Variable.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/Parser/Variable.pm -Llib/Parser/Variable.pm -u -r1.6 -r1.7
--- lib/Parser/Variable.pm
+++ lib/Parser/Variable.pm
@@ -105,7 +105,7 @@
my $self = shift; my $name = $self->{name};
my $value = $self->{equation}{values}{$name};
return $value if defined($value);
- $name = $1.'_{'.$2.'}' if ($name =~ m/^(\D+)(\d+)$/);
+ $name = $1.'_{'.$2.'}' if ($name =~ m/^([^_]+)_?(\d+)$/);
return $name;
}
#
|
