[MOBY-guts] biomoby commit

[Eddie Kawas]

kawas
Fri Feb 15 03:50:45 EST 2008
Update of /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache
In directory dev.open-bio.org:/tmp/cvs-serv27316/Perl/MOBY/RDF/Ontologies/Cache

Modified Files:
	ServiceTypeCache.pm 
Log Message:
fixed bug that prevented the service type cache from updating itself properly
moby-live/Perl/MOBY/RDF/Ontologies/Cache ServiceTypeCache.pm,1.1,1.2
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.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/ServiceTypeCache.pm	2007/12/17 18:52:37	1.1
+++ /home/repository/moby/moby-live/Perl/MOBY/RDF/Ontologies/Cache/ServiceTypeCache.pm	2008/02/15 08:50:45	1.2
@@ -217,7 +217,7 @@
 	  )
 	{
 		$self->create_service_type_cache;
-		return;
+		return -1;
 	}
 
 	if (
@@ -234,7 +234,7 @@
 		warn(     "service type LIST_FILE doesn't exist, so I created the cache from scratch!"
 		);
 		$self->create_service_type_cache;
-		return;
+		return -1;
 	}
 
 	# steps:
@@ -274,7 +274,7 @@
 		}
 	  );
 
-	my $xml = $soap->retrieveObjectNames()->result;
+	my $xml = $soap->retrieveServiceTypes()->result;
 	$parser = XML::LibXML->new();
 	$doc    = $parser->parse_string($xml);
 	$nodes  = $doc->documentElement()->getChildrenByTagName('serviceType');