[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Feb  6 16:58:36 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv14931

Modified Files:
	Central.pm 
Log Message:
should fiux problem with servicd registration

moby-live/Perl/MOBY Central.pm,1.146,1.147
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.146
retrieving revision 1.147
diff -u -r1.146 -r1.147
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2004/12/14 20:55:11	1.146
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/02/06 21:58:35	1.147
@@ -3220,7 +3220,7 @@
 		  && &_LOG( $_->nodeType, "\t", $_->toString, "\n" );
 
 		#next unless $_->nodeType == TEXT_NODE;
-		$content .= $_->toString;
+		$content .= $_->textContent;
 	}
 	return $content;
 }
@@ -3243,7 +3243,7 @@
 		if ($_->toString =~ /<!\[CDATA\[((?>[^\]]+))\]\]>/) {
 			$content .= $1;
 		} else {
-			$content .= $_->toString;
+			$content .= $_->textContent;
 		}
 	}
 	return $content;