[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed May  7 19:52:14 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY/Client
In directory pub.open-bio.org:/tmp/cvs-serv30205/Perl/MOBY/Client

Modified Files:
	Central.pm 
Log Message:
be consistent with the names
moby-live/Perl/MOBY/Client Central.pm,1.9,1.10
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -r1.9 -r1.10
--- /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/07 23:11:37	1.9
+++ /home/repository/moby/moby-live/Perl/MOBY/Client/Central.pm	2003/05/07 23:52:14	1.10
@@ -296,7 +296,7 @@
  Usage     :	$REG = $MOBY->deregisterObjectClass(%args)
  Function  :	deregister a MOBY Object
  Returns   :	MOBY::Registration object
- Args      :	objectAcc => $objectName (from Object ontology)
+ Args      :	objectType => $objectName (from Object ontology)
 
 
 =cut
@@ -316,7 +316,7 @@
 	my $id = $a{'objectAcc'}; $id ||="";
 	my $message = "
 		<deregisterObjectClass>
-			<objectAcc>$id</objectAcc>
+			<objectType>$id</objectType>
 		</deregisterObjectClass>";
 	my $return = $self->SOAP_connection->call(deregisterObjectClass => ($message))->paramsall;
     
@@ -388,7 +388,7 @@
  Usage     :	$REG = $MOBY->deregisterServiceType(%args)
  Function  :	deregister a deprecated MOBY Service Type
  Returns   :	MOBY::Registration object
- Args      :	serviceTypeAcc => $serviceType (from ontology)
+ Args      :	serviceType => $serviceType (from ontology)
 
 
 =cut
@@ -401,7 +401,7 @@
 
 	my ($self, %a) = @_;
 	return $self->errorRegXML("Function not allowed when querying multiple registries") if $self->multiple_registries;
-	my $id = $a{'serviceTypeAcc'}; $id ||="";
+	my $id = $a{'serviceType'}; $id ||="";
 	my $message = "
 		<deregisterServiceType>
 			<serviceType>$id</serviceType>
@@ -505,18 +505,23 @@
                 
  Category Specific Args:
 	 
-     input:	 
-	     moby:	input => [objType1 => [ns1, ns2...], articleName], # Simple
-                         [[objType1 => [ns1, ns2...]], articleName] # Collection (one object Class)
-                         [[objType2 => [ns1, ns2...],
-						   objType3 => [ns1, ns2...]], articleName] # Collection (two object Classes)
+   input:	 
+      moby: input =>[
+					 [objType1 => [ns1, ns2...], articleName], # Simple
+                     [[objType1 => [ns1, ns2...]], articleName] # Collection (one object Class)
+                     [[objType2 => [ns1, ns2...],
+					   objType3 => [ns1, ns2...]], articleName] # Collection (two object Classes)
+                     ]
                          
                           
-     output:
-		 moby: output => {objectType1 => [[namespace1, namespace2, namespace3], articleName]
-                          objectType2 => [[namespace1, namespace4, namespace5], articlename]
-                          }  (hash-ref!)
-    
+   output:
+      moby: output =>[
+					 [objType1 => [ns1, ns2...], articleName], # Simple
+                     [[objType1 => [ns1, ns2...]], articleName] # Collection (one object Class)
+                     [[objType2 => [ns1, ns2...],
+					   objType3 => [ns1, ns2...]], articleName] # Collection (two object Classes)
+                     ]
+            
 	 URL:
 		 moby: URL    =>  $URL_TO_SERVICE