--- loncom/xml/lonxml.pm	2001/02/13 00:17:11	1.52
+++ loncom/xml/lonxml.pm	2001/02/14 02:57:02	1.53
@@ -333,7 +333,7 @@ sub parstring {
   map {
     unless ($_=~/\W/) {
       my $val=$token->[2]->{$_};
-      $val =~ s/([\%\@\\])/\$1/;
+      $val =~ s/([\%\@\\])/\\$1/g;
       #if ($val =~ m/^[\%\@]/) { $val="\\".$val; }
       $temp .= "my \$$_=\"$val\";"
     }