[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Mar 14 13:30:57 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv32546

Modified Files:
	CommonSubs.pm 
Log Message:
allow CDATA in the service notes block

moby-live/Perl/MOBY CommonSubs.pm,1.62,1.63
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.62
retrieving revision 1.63
diff -u -r1.62 -r1.63
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/03/11 22:25:31	1.62
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/03/14 18:30:57	1.63
@@ -1458,6 +1458,9 @@
 			#            $content .= $response_component->toString;
 			$content .= $response_component->nodeValue
 			  if ( $response_component->nodeType == TEXT_NODE );
+        	$content .= $response_component->nodeValue
+			  if ( $response_component->nodeType == CDATA_SECTION_NODE );
+            
 		}
 	}
 	return ( $content );