[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jul 14 16:05:27 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv1802/Perl/MOBY

Modified Files:
	CommonSubs.pm 
Log Message:
still porting my LocalServices to use the new CommonSubs module subroutines

moby-live/Perl/MOBY CommonSubs.pm,1.7,1.8
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/07/14 19:35:05	1.7
+++ /home/repository/moby/moby-live/Perl/MOBY/CommonSubs.pm	2003/07/14 20:05:27	1.8
@@ -61,6 +61,8 @@
 
 package MOBY::CommonSubs;
 require Exporter;
+use XML::DOM;
+
 @ISA = qw(Exporter);
 @EXPORT_OK = qw(
     getSimpleArticleIDs
@@ -177,26 +179,21 @@
 	# pass me a <SIMPLE> input node and I will give you the lsid of the namespace of that input object
 
 	my ($input_node) = @_;
-	_LOG("starting _getNamespaceURI\n\n");
 
 	return undef unless $input_node;
-	_LOG("_getNamespaceURI found input node $input_node \n".($input_node->toString)."\n in _getNamespaceURI\n\n");
 	my $OS = MOBY::Client::OntologyServer->new;
 	
 	#$input_node = "<Simple><Object namespace='' id=''/></Simple>"
 	my @simples = $input_node->getChildNodes;
 	foreach (@simples){ # $_ = <Object namespace='' id=''/>   # should be just one, so I will return at will from this routine
-		_LOG("found simple $_\n\n");
 		next unless $_->getNodeType == ELEMENT_NODE;
 		my $ns = $_->getAttributeNode('namespace');  # get the namespace DOM node
 		$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
-			$debug && _LOG("didn't get a namespace for ".($_->toString)."\n");
 			return undef
 		}
 		my ($s, $m, $lsid) = $OS->namespaceExists(term => $ns->getValue);   # if we have a namespace, then get its value
 		return undef unless $s;
-		$debug && _LOG("got namespace $lsid for ".($_->toString)."\n");
 		return $lsid
 	}
 }