--- loncom/xml/lonxml.pm 2003/11/21 20:21:20 1.295 +++ loncom/xml/lonxml.pm 2003/12/09 16:52:13 1.296 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.295 2003/11/21 20:21:20 albertel Exp $ +# $Id: lonxml.pm,v 1.296 2003/12/09 16:52:13 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -998,7 +998,6 @@ sub parstring { my $val=$token->[2]->{$_}; $val =~ s/([\%\@\\\"\'])/\\$1/g; #if ($val =~ m/^[\%\@]/) { $val="\\".$val; } - if ($val !~ m/^\s*\$[a-z_]/i) { $val =~ s/\$/\\\$/g; } $temp .= "my \$$_=\"$val\";"; } }