[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Feb  8 11:49:16 EST 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv24543/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
thanks to Sophie for squashing this bug.  Crossreferences were not being detected if prefixed by moby: 

moby-live/Perl/MOBY CommonSubs.pm,1.58,1.59
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -r1.58 -r1.59
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2004/12/15 17:49:44	1.58
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2005/02/08 16:49:15	1.59
@@ -1617,7 +1617,7 @@
 	$ns = $xref->getAttributeNode( 'moby:namespace' ) unless $ns;
 	return undef unless $ns;
 	my $id = $xref->getAttributeNode( 'id' );
-	$id = $xref->getAttributeNode( 'moby:id' ) unless $ns;
+	$id = $xref->getAttributeNode( 'moby:id' ) unless $id;
 	return undef unless $id;
 	my $XREF = MOBY::CrossReference->new(
 										  type      => "object",