[MOBY-guts] biomoby commit

Mark Wilkinson mwilkinson at pub.open-bio.org
Mon Oct 20 11:23:54 EDT 2003


mwilkinson
Mon Oct 20 10:23:54 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv15855/Perl/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
yes, I am a dummy.  Single colons in XML namespaces, not double

moby-live/Perl/MOBY CommonSubs.pm,1.16,1.17
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -r1.16 -r1.17
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/10/16 01:32:05	1.16
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/10/20 14:23:54	1.17
@@ -140,7 +140,7 @@
 		foreach (@simples){ # $_ = <Object namespace='' id=''/>
 			next unless $_->getNodeType == ELEMENT_NODE;
 			my $ns = $_->getAttributeNode('namespace');  # get the namespace DOM node
-			$ns = $_->getAttributeNode('moby::namespace') unless ($ns);  # perhaps it is namespaced...
+			$ns = $_->getAttributeNode('moby:namespace') unless ($ns);  # perhaps it is namespaced...
 			unless ($ns){   # if we don't get it at all, then move on to the next input
 				push @accessions, undef;  # but push an undef onto teh stack in order
 				next;
@@ -154,7 +154,7 @@
 			}
 			# Now do the same thing for ID's
 			my $id = $_->getAttributeNode('id');
-			$id = $_->getAttributeNode('moby::id') unless ($id);
+			$id = $_->getAttributeNode('moby:id') unless ($id);
 			unless ($id){
 				push @accessions, undef;
 				next;
@@ -198,7 +198,7 @@
 	foreach (@simples){ # $_ = <Object namespace='' id=''/>   # should be just one, so I will return at will from this routine
 		next unless $_->getNodeType == ELEMENT_NODE;
 		my $ns = $_->getAttributeNode('namespace');  # get the namespace DOM node
-		$ns = $_->getAttributeNode('moby::namespace') unless ($ns);  # perhaps it is namespaced...
+		$ns = $_->getAttributeNode('moby:namespace') unless ($ns);  # perhaps it is namespaced...
 		unless ($ns){   # if we don't get it at all, then move on to the next input
 			return undef
 		}



More information about the MOBY-guts mailing list