[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jun 11 16:36:59 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv6050/MOBY

Modified Files:
	Central.html Central.pm 
Log Message:
last minute commit of all of my changes before I bugger off for the weekend.

moby-live/Perl/MOBY Central.html,1.2,1.3 Central.pm,1.76,1.77
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.html,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -r1.2 -r1.3
--- /home/repository/moby/moby-live/Perl/MOBY/Central.html	2003/06/06 00:45:46	1.2
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.html	2003/06/11 20:36:59	1.3
@@ -38,8 +38,8 @@
 		<li><a href="#retrieveservicetypes">retrieveServiceTypes</a></li>
 		<li><a href="#retrieverelationshiptypes">retrieveRelationshipTypes</a></li>
 		<li><a href="#retrieveobjectnames">retrieveObjectNames</a></li>
+		<li><a href="#retrieveobjectdefinition">retrieveObjectDefinition</a></li>
 		<li><a href="#retrievenamespaces">retrieveNamespaces</a></li>
-		<li><a href="#objectclassdetails">objectClassDetails</a></li>
 		<li><a href="#retrieveobject">retrieveObject</a></li>
 		<li><a href="#isa">ISA</a></li>
 		<li><a href="#dump">DUMP</a></li>
@@ -625,6 +625,18 @@
         &lt;/objectNames&gt;</pre>
 <p>
 </p>
+<h2><a name="retrieveobjectdefinition">retrieveObjectDefinition</a></h2>
+<pre>
+ Title     :    retrieveObjectDefinition
+ Usage     :    $registerObjectXML = $MOBY-&gt;retrieveObjectDefinition($inputXML)
+ Function  :    get the full description of an object, as registered
+ Returns   :    see input XML for registerObjectClass
+ Input XML :
+         &lt;retrieveObjectDefinition&gt;
+                         &lt;objectType&gt;ExistingObjectClassname&lt;/objectType&gt;
+                 &lt;/retrieveObjectDefinition&gt;</pre>
+<p>
+</p>
 <h2><a name="retrievenamespaces">retrieveNamespaces</a></h2>
 <pre>
  Title     :    retrieveNamespaces
@@ -642,29 +654,6 @@
         &lt;/Namespaces&gt;</pre>
 <p>
 </p>
-<h2><a name="objectclassdetails">objectClassDetails</a></h2>
-<pre>
- Title     :    objectClassDetails
- Usage     :    $outputXML = $MOBY-&gt;objectClassDetails($inputXML)
- Function  :    get the object details
- Returns   :    XML (see below)
- Args      :    $name - object name (from ontology) or &quot;all&quot; to get all objects
- 
- inputXML  :
-        &lt;retrieveObject&gt;
-         &lt;objectType&gt;ObjectType&lt;/objectType&gt;
-        &lt;/retrieveObject&gt;
-                          
- outputXML       :
-        &lt;Objects&gt;
-           &lt;Object name=&quot;namespace&quot;&gt;
-                  &lt;Schema&gt;&lt;XSD schema fragment here&gt;&lt;/Schema&gt;
-           &lt;/Object&gt;
-                ...
-                ...
-        &lt;/Objects&gt;</pre>
-<p>
-</p>
 <h2><a name="retrieveobject">retrieveObject</a></h2>
 <pre>
  Title     :    retrieveObject

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -r1.76 -r1.77
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/10 23:58:25	1.76
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/06/11 20:36:59	1.77
@@ -141,7 +141,7 @@
 sub new {
 	my ($caller, %args) = @_;
 	print STDERR "\nuse of MOBY::Central->new is deprecated\n";
-	return 1;
+	return 0;
 }
 
 sub _dbAccess {