[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Sun Feb  6 17:24:47 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv15056/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
fixing at teh client side as well

moby-live/Perl/MOBY/Client Central.pm,1.87,1.88
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -r1.87 -r1.88
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2004/12/15 19:37:12	1.87
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/02/06 22:24:47	1.88
@@ -1863,7 +1863,7 @@
 
 		#print getNodeTypeName($_), "\t", $_->toString,"\n";
 		next unless $_->nodeType == TEXT_NODE;
-		$content = $_->toString;
+		$content = $_->textContent;
 	}
     $content ||="";
 	$content =~ s/<!\[CDATA\[((?>[^\]]+))\]\]>/$1/gs;
@@ -1883,14 +1883,14 @@
 
 		#print getNodeTypeName($_), "\t", $_->toString,"\n";
 		next unless $_->nodeType == TEXT_NODE;
-		$content = $_->toString;
+		$content = $_->textContent;
 	}
 	return $content;
 }
 
 sub _nodeRawContent {
 
-	# will get text of **all** child $node from the given $DOM
+	# will get XML of **all** child $node from the given $DOM
 	# regardless of their depth!!
 	my ( $DOM, $node ) = @_;
 	my $x = $DOM->getElementsByTagName( $node );
@@ -1923,7 +1923,7 @@
 
 			#print getNodeTypeName($_), "\t", $_->toString,"\n";
 			next unless $_->nodeType == TEXT_NODE;
-			push @result, $_->toString;
+			push @result, $_->textContent;
 		}
 	}
 	return @result;