[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May 25 10:23:47 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv24497/MOBY/Client

Modified Files:
	SimpleArticle.pm 
Log Message:
more namespace parsing errors
moby-live/Perl/MOBY/Client SimpleArticle.pm,1.17,1.18
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2007/05/25 13:48:50	1.17
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2007/05/25 14:23:47	1.18
@@ -325,8 +325,10 @@
 		next unless $child->nodeType == ELEMENT_NODE;
 		$self->objectType( $child->localname );
 		my $attr = $child->getAttributeNode( 'namespace' );
+		$attr ||= $child->getAttributeNode( 'moby:namespace' );
 		$self->addNamespace( $attr->getValue ) if $attr;
 		my $id = $child->getAttributeNode( 'id' );
+		$id ||= $child->getAttributeNode( 'moby:id' );
 		$self->id( $id->getValue ) if $id;
 	}
 	return $self;