[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Jul  1 11:00:47 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv18230/MOBY

Modified Files:
	Central.pm 
Log Message:
ServiceInstance now returns one of two new object types - Simple and Collection article objects (see documentation) rather than strings in response to the ->input and ->ouptut method calls.  Client is updated to read this properly (I hope).  This should make it much easier to determine the inputs and outputs of a service... no XML parsing required :-)

moby-live/Perl/MOBY Central.pm,1.87,1.88
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.87
retrieving revision 1.88
diff -u -r1.87 -r1.88
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/27 03:16:09	1.87
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/07/01 15:00:47	1.88
@@ -2182,83 +2182,6 @@
 
 	
 
-#
-#
-#=head2 ISA
-#
-# Title     :	ISA
-# Usage     :	$objects = $MOBY->ISA($input_XML)
-# Function  :	get the object xsd
-# Returns   :	XML (see below)
-# Args      :	$name - object name (from ontology) or "all" to get all objects
-# 
-# inputXML  :
-#	<ISA>
-#	 <objectType>QueryObject</objectType>
-#	<ISA>
-#			  
-# outputXML       :
-#	<Relationships>
-#	   <objectType>QueryObject</objectType>
-#		  <ISA>
-#			  <objectType>ParentObject</objectType>
-#			  ...
-#			  ...
-#		  </ISA>
-#		  <HASA>
-#			  <objectType>ContainedObject</objectType>
-#			  ...
-#			  ...
-#		  </HASA>
-#	</Relationships>
-#
-#=cut
-#
-#
-#
-#sub ISA {
-#	my ($pkg, $payload) = @_;
-#
-#    my $response = "<Objects>\n";
-#		$response .="<NOT_YET_IMPLEMENTED/>\n";
-#    $response .= "</Objects>\n";
-#	return $response;	
-#
-#	my $obj = &_ISAPayload($payload);
-#	my ($dbh, $sth_hash) = &_dbAccess;
-#	my %sth = %{$sth_hash};
-#	my ($isa) = $dbh->selectrow_array("select id from RelationshipType where type = 'is a'");
-#	my ($hasa) = $dbh->selectrow_array("select id from RelationshipType where type = 'has a'");
-#	
-#	my %isa; my %hasa;
-#	&_flatten($dbh, $isa, $obj, \%isa);
-#	&_flatten($dbh, $hasa, $obj, \%isa);
-#	
-#	$response = "
-#	<Relationships>
-#		<objectType>$obj</objectType>
-#		<ISA>
-#	";
-#	foreach (keys %isa){
-#		$response .= "<objectType>$_</objectType>";
-#	}
-#	$response .= "
-#		</ISA>
-#		<HASA>
-#	";
-#	foreach (keys %hasa){
-#		$response .= "<objectType>$_</objectType>";
-#	}
-#	$response .= "
-#		</HASA>
-#	</Relationships>
-#	";
-#
-#	return $response;	
-#	
-#}
-
-
 =head2 DUMP
 
  Title     :	DUMP