[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jun 23 17:58:45 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv5434/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
Whhhrrrrrrrr.... traversal of ontology kicks back into life.  The flags 'expandServices' and 'expandObjects' should now be active on the findService call.  expandObject will traverse the ISA relationship (only) all the way back to root so that you discover services that operate on that object or any parent object type.  expandService will traverse the ISA relationship (only) of services all the way to the leaves so you get the general service type you requested, or service types that are more specific than the one you requested

moby-live/Perl/MOBY/Client Central.pm,1.37,1.38
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.37
retrieving revision 1.38
diff -u -r1.37 -r1.38
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/06/23 17:49:35	1.37
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/06/23 21:58:45	1.38
@@ -760,8 +760,8 @@
 	$serviceType && ($message .="<serviceType>$serviceType</serviceType>\n");
 	$servicename && ($message .="<serviceName>$servicename</serviceName>\n");
 	$authURI && ($message .="<authURI>$authURI</authURI>\n");
-	#defined($exObj) && ($message .="<expandObjects>$exObj</expandObjects> \n");
-	#defined($exServ) && ($message .="<expandServices>$exServ</expandServices>\n");
+	defined($exObj) && ($message .="<expandObjects>$exObj</expandObjects> \n");
+	defined($exServ) && ($message .="<expandServices>$exServ</expandServices>\n");
 	if (scalar(@kw)){	
 		$message .="	<keywords>\n";
 		foreach (@kw){