[MOBY-guts] biomoby commit

[Mark Wilkinson]

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

Modified Files:
	SimpleArticle.pm 
Log Message:
namespacing of attributes was not being read properly
moby-live/Perl/MOBY/Client SimpleArticle.pm,1.16,1.17
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2006/10/02 23:31:20	1.16
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/SimpleArticle.pm	2007/05/25 13:48:50	1.17
@@ -275,6 +275,7 @@
   $self->articleName( "" );
   $self->objectType( "" );
   my $attr = $dom->getAttributeNode( 'articleName' );
+  $attr ||= $dom->getAttributeNode( 'moby:articleName' );
   my $articleName = $attr ? $attr->getValue : "";
   $attr = $dom->getAttributeNode( 'lsid' );
   my $lsid = $attr ? $attr->getValue : "";