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

[albertel]

albertel		Tue Oct  8 13:09:09 2002 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - didn't deal with 8 # properly, made it 8\ #
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.198 loncom/xml/lonxml.pm:1.199
--- loncom/xml/lonxml.pm:1.198	Thu Oct  3 11:04:29 2002
+++ loncom/xml/lonxml.pm	Tue Oct  8 13:09:09 2002
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.198 2002/10/03 15:04:29 www Exp $
+# $Id: lonxml.pm,v 1.199 2002/10/08 17:09:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -582,7 +582,7 @@
     if ($current_token=~/ \#\w/) {
 	$current_token=~s/ \#(\w)/ \\#$1/;
     } else {
-	$current_token=~s/([^&]\#)/\\$1/g;
+	$current_token=~s/([^&])(\#)/$1\\$2/g;
     }
     $current_token=~s/(\$|_|{|})/\\$1/g;
     $current_token=~s/\\char92 /\\texttt{\\char92}/g;