[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	Central.pm 
Log Message:
fixing the registration object output

moby-live/Perl/MOBY/Client Central.pm,1.88,1.89
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -r1.88 -r1.89
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/02/06 22:24:47	1.88
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2005/02/06 22:46:45	1.89
@@ -1829,6 +1829,7 @@
 	my $id      = &_nodeTextContent( $Object,  'id' );
 	my $success = &_nodeTextContent( $Object,  'success' );
 	my $message = &_nodeCDATAContent( $Object, 'message' );
+print STDERR "******$message******\n";
 	my $RDF     = &_nodeRawContent( $Object,   'RDF' );
 	my $reg = MOBY::Client::Registration->new(
 											   success         => $success,
@@ -1862,7 +1863,7 @@
 	foreach ( @child ) {
 
 		#print getNodeTypeName($_), "\t", $_->toString,"\n";
-		next unless $_->nodeType == TEXT_NODE;
+		next unless (($_->nodeType == TEXT_NODE) || ($_->nodeType == CDATA_SECTION_NODE));
 		$content = $_->textContent;
 	}
     $content ||="";
@@ -1882,7 +1883,7 @@
 	foreach ( @child ) {
 
 		#print getNodeTypeName($_), "\t", $_->toString,"\n";
-		next unless $_->nodeType == TEXT_NODE;
+		next unless (($_->nodeType == TEXT_NODE) || ($_->nodeType == CDATA_SECTION_NODE));
 		$content = $_->textContent;
 	}
 	return $content;
@@ -1922,7 +1923,7 @@
 		foreach ( @child2 ) {
 
 			#print getNodeTypeName($_), "\t", $_->toString,"\n";
-			next unless $_->nodeType == TEXT_NODE;
+			next unless (($_->nodeType == TEXT_NODE) || ($_->nodeType == CDATA_SECTION_NODE));
 			push @result, $_->textContent;
 		}
 	}