[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