[LON-CAPA-cvs] cvs: loncom /xml lonxml.pm

[albertel]

albertel		Tue Dec  9 11:52:13 2003 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - revert version 1.293
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.295 loncom/xml/lonxml.pm:1.296
--- loncom/xml/lonxml.pm:1.295	Fri Nov 21 15:21:20 2003
+++ loncom/xml/lonxml.pm	Tue Dec  9 11:52:13 2003
@@ -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 @@
       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\";";
     }
   }