[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul 27 18:56:33 EDT 2004
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv12503/MOBY/Client

Modified Files:
	CollectionArticle.pm 
Log Message:
simples were being added to collections multiple times when creating a ServiceInstance from a DOM, rather than from parsing the XML manually.  Fixed.  RDF should now be somewhat more sensible.

moby-live/Perl/MOBY/Client CollectionArticle.pm,1.8,1.9
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2004/06/15 00:37:55	1.8
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2004/07/27 22:56:32	1.9
@@ -306,10 +306,7 @@
     $self->articleName($articleName);
     my $objects = $dom->getElementsByTagName("Simple");
     for my $n(0..$objects->getLength - 1){
-        foreach my $child($objects->item($n)->getChildNodes){
-            next unless $child->getNodeType == ELEMENT_NODE;
-            $self->addSimple(MOBY::Client::SimpleArticle->new(articleName=>$self->articleName, XML_DOM => $objects->item($n)));
-        }
+        $self->addSimple(MOBY::Client::SimpleArticle->new(articleName=>$self->articleName, XML_DOM => $objects->item($n)));
     }
     return $self;
 }