[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri May  9 09:06:24 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv7071/Perl/MOBY

Modified Files:
	Central.pm OntologyServer.pm 
Log Message:
wrapped findService in the Client::Central wrapper
moby-live/Perl/MOBY Central.pm,1.50,1.51 OntologyServer.pm,1.4,1.5
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -r1.50 -r1.51
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/08 23:04:39	1.50
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/05/09 13:06:23	1.51
@@ -824,6 +824,24 @@
 }
 
 
+
+=head2 retrieveRelationshipTypes
+
+    *  used to remove a Namespace from the controlled vocabulary
+    * will fail if that namespace is being used by any services
+    * you will recieve an email for confirmation of the deregistration
+
+Input XML :
+
+        <deregisterNamespace>
+           <namespaceType>MyNamespace</namespaceType>
+        </deregisterNamespace>
+
+Ouptut XML :
+
+...Registration Object... 
+
+
 =head2 registerService
 
     *  all elements are required

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -r1.4 -r1.5
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/08 19:53:43	1.4
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/09 13:06:24	1.5
@@ -70,6 +70,7 @@
     $self->ontology eq 'object' && $self->database('mobyobject');
     $self->ontology eq 'namespace' && $self->database('mobynamespace');
     $self->ontology eq 'service' && $self->database('mobyservice');
+    $self->ontology eq 'service' && $self->database('mobyrelationship');
     
     my ($dsn) = "DBI:mysql:".($self->database).":".($self->host).":".($self->port);
     	
@@ -449,18 +450,22 @@
     return $self->setURI($id);
 }
 
-sub getServiceTypeObject {
-
+sub getRelationshipTypes {
+    my ($self, %args) = @_;
+    my $ontology = $args{'ontology'};
+    my $ids = $self->dbh->selectall_arrayref(q{select relationship_type, description from relationship where ontology = ?}, undef, $ontology);
+    my %result;
+    foreach (@{$ids}){
+        $result{$_->[0]} = $_->[1];    
+    }
+    return \%result;
 }
-
-sub getObjectTypeObject {
-
+    
+sub ISA {
+    my ($self, $expand) = @_;
+    
 }
 
-sub getNamespaceTypeObject {
-
-}
-    
 sub setURI {
     my ($self, $id) = @_;
     my $URI;