[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 14:05:00 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv2178/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
got the perl client to create correct XML for service registration
moby-live/Perl/MOBY Central.pm,1.29,1.30
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -r1.29 -r1.30
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 17:52:27	1.29
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 18:05:00	1.30
@@ -2631,6 +2631,41 @@
 
 
 
+=head2 objectClassDetails
+
+ Title     :	objectClassDetails
+ Usage     :	$outputXML = $MOBY->objectClassDetails($inputXML)
+ Function  :	get the object details
+ Returns   :	XML (see below)
+ Args      :	$name - object name (from ontology) or "all" to get all objects
+ 
+ inputXML  :
+	<retrieveObject>
+	 <objectType>ObjectType</objectType>
+	</retrieveObject>
+			  
+ outputXML       :
+	<Objects>
+	   <Object name="namespace">
+		  <Schema><XSD schema fragment here></Schema>
+	   </Object>
+		...
+		...
+	</Objects>
+
+=cut
+
+
+sub objectClassDetails {
+	my ($pkg, $payload) = @_;
+    my $response = "<Objects>\n";
+		$response .="<NOT_YET_IMPLEMENTED/>\n";
+    $response .= "</Objects>\n";
+	return $response;	
+}
+
+
+
 =head2 retrieveObject
 
  Title     :	retrieveObject
@@ -2729,7 +2764,7 @@
 	&_flatten($dbh, $isa, $obj, \%isa);
 	&_flatten($dbh, $hasa, $obj, \%isa);
 	
-	my $response = "
+	$response = "
 	<Relationships>
 		<objectType>$obj</objectType>
 		<ISA>