[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu Jul 10 00:02:10 EDT 2003
Update of /home/repository/moby/moby-live/Perl/scripts/Services
In directory pub.open-bio.org:/tmp/cvs-serv1981/Perl/scripts/Services

Modified Files:
	LocalServices.pm 
Log Message:
yeah yeah, I register services with many more than one bug.  I must be tired.  XML parsing bug should now be fixed 

moby-live/Perl/scripts/Services LocalServices.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/10 03:37:13	1.8
+++ /home/repository/moby/moby-live/Perl/scripts/Services/LocalServices.pm	2003/07/10 04:02:10	1.9
@@ -206,7 +206,8 @@
 	foreach my $in(@input_nodes){
 		#$in = "<Simple><Object namespace='' id=''/></Simple>"
 		my @simples = $in->getChildNodes;
-		foreach (@simples){ # $_ = <Object namespace='' id=''/> 
+		foreach (@simples){ # $_ = <Object namespace='' id=''/>
+			next unless $_->getNodeType == ELEMENT_NODE;
 			my $ns = $_->getAttributeNode('namespace');  # get the namespace DOM node
 			$ns = $_->getAttributeNode('moby::namespace') unless ($ns);  # perhaps it is namespaced...
 			unless ($ns){   # if we don't get it at all, then move on to the next input