[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed May  7 18:40:49 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv29857/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
presumptions about discovery in XML removed... check values first
moby-live/Perl/MOBY Central.pm,1.19,1.20
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/07 19:20:27	1.19
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/07 22:40:49	1.20
@@ -3002,6 +3002,7 @@
     my ($DOM, $node) = @_;
 	$debug && &_LOG("_nodeTextContent received DOM:  ", $DOM->toString,"\nsearching for node $node\n");
     my $x = $DOM->getElementsByTagName($node);
+	return undef unless $x->item(0);
     my @child = $x->item(0)->getChildNodes;
     my $content;
     foreach (@child){