[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Mar 11 17:25:31 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv13773

Modified Files:
	CommonSubs.pm 
Log Message:
DOH...getNodeContentWithArticle now recognizes CDATA content as well

moby-live/Perl/MOBY CommonSubs.pm,1.61,1.62
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -r1.61 -r1.62
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/03/11 22:22:57	1.61
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/03/11 22:25:31	1.62
@@ -1287,7 +1287,7 @@
 			} else {
 				my $resp;
 				foreach ( $child->childNodes ) {
-					next unless ($_->nodeType == TEXT_NODE || $amount->nodeType == CDATA_SECTION_NODE);
+					next unless ($_->nodeType == TEXT_NODE || $_->nodeType == CDATA_SECTION_NODE);
 					$resp .= $_->nodeValue;
 				}
 				push @contents, $resp;