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

[albertel]

albertel		Wed Nov  2 17:48:53 2005 EDT

  Modified files:              
    /loncom/xml	lonxml.pm 
  Log:
  - BUG #4435
  
  
Index: loncom/xml/lonxml.pm
diff -u loncom/xml/lonxml.pm:1.385 loncom/xml/lonxml.pm:1.386
--- loncom/xml/lonxml.pm:1.385	Tue Oct 18 17:49:37 2005
+++ loncom/xml/lonxml.pm	Wed Nov  2 17:48:52 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.385 2005/10/18 21:49:37 albertel Exp $
+# $Id: lonxml.pm,v 1.386 2005/11/02 22:48:52 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -926,7 +926,7 @@
     $tag='<'.$tag.'>';
     while ($token = $$pars[-1]->get_token) {
 	if (($token->[0] eq 'T')||($token->[0] eq 'C')||($token->[0] eq 'D')) {
-	    if ($token->[2]) {
+	    if ($token->[0] eq 'T' && $token->[2]) {
 		$result.='<![CDATA['.$token->[1].']]>';
 	    } else {
 		$result.=$token->[1];