[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Wed Feb 13 17:47:40 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache
In directory dev.open-bio.org:/tmp/cvs-serv18712/Perl/MOBY/RDF/Ontologies/Cache

Modified Files:
	NamespaceCache.pm 
Log Message:
fixed bug that prevented the namespace cache from updating itself properly
moby-live/Perl/MOBY/RDF/Ontologies/Cache NamespaceCache.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/NamespaceCache.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/NamespaceCache.pm	2007/12/17 18:51:06	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/NamespaceCache.pm	2008/02/13 22:47:40	1.2
@@ -189,7 +189,7 @@
 Update the namespace cache. This will update any items that are 'old',
 by relying on the LSID for the namespace. This method is not thread safe.
 
-This method returns the number of changed resources.
+This method returns the number of changed resources or -1 if a cache had to be created for you.
 
 To update the cache with a thread safe method, call C<get_rdf>.
 
@@ -217,7 +217,7 @@
 	  )
 	{
 		$self->create_namespace_cache;
-		return;
+		return -1;
 	}
 
 	if (
@@ -234,7 +234,7 @@
 		warn(     "Namespace LIST_FILE doesn't exist, so I created the cache from scratch!"
 		);
 		$self->create_namespace_cache;
-		return;
+		return -1;
 	}
 
 	# steps:
@@ -274,7 +274,7 @@
 		}
 	  );
 
-	my $xml = $soap->retrieveObjectNames()->result;
+	my $xml = $soap->retrieveNamespaces()->result;
 	$parser = XML::LibXML->new();
 	$doc    = $parser->parse_string($xml);
 	$nodes  = $doc->documentElement()->getChildrenByTagName('Namespace');