[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May 25 09:58:51 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory dev.open-bio.org:/tmp/cvs-serv24414/MOBY/Client

Modified Files:
	CollectionArticle.pm SecondaryArticle.pm 
Log Message:
more namespace parsing errors
moby-live/Perl/MOBY/Client CollectionArticle.pm,1.16,1.17 SecondaryArticle.pm,1.13,1.14
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2006/05/30 18:56:16	1.16
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/CollectionArticle.pm	2007/05/25 13:58:51	1.17
@@ -263,6 +263,7 @@
     $self->articleName( "" );
     $self->Simples( [] );
     my $attr        = $dom->getAttributeNode( 'articleName' );
+	$attr  ||= $dom->getAttributeNode( 'moby:articleName' );
     my $articleName = "";
     $articleName = $attr->getValue if $attr;
     $self->articleName( $articleName );

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -r1.13 -r1.14
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2007/02/07 01:21:24	1.13
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SecondaryArticle.pm	2007/05/25 13:58:51	1.14
@@ -255,6 +255,7 @@
 	$self->articleName( "" );
 	$self->objectType( "" );
 	my $attr        = $dom->getAttributeNode( 'articleName' );
+	$attr  ||= $dom->getAttributeNode( 'moby:articleName' );
 	$self->articleName( $attr ? $attr->getValue : "" );
 	if ( @{ $dom->getElementsByLocalName( 'Value' ) }[0] ) {
 	  return $self->_createInstantiatedArticle( $dom );