[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Jun 23 13:49:35 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv4593/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
tightened up Client::Central code to ensure that message structure is correct and allow flexibility in the parameters that you send in (not all are required anymore).  error checking is more stringent, and the method returns a pair of objects rather than an unpredictable ServiceInstance or Registration object.

moby-live/Perl/MOBY OntologyServer.pm,1.19,1.20
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -r1.19 -r1.20
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/06/23 16:47:00	1.19
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/06/23 17:49:35	1.20
@@ -265,7 +265,7 @@
     # object1_id ISA object2_id?
     my (@isa) = $self->dbh->selectrow_array(q{select * from object_term2term where object2_id = ?},undef, $id);
     if (scalar @isa){
-        return (0, q{Object type $term has object dependencies in the ontology},$lsid);
+        return (0, qq{Object type $term has object dependencies in the ontology},$lsid);
     }
     
     $self->dbh->do(q{delete from object where object_id = ?}, undef,$id );
@@ -525,7 +525,7 @@
     # service1_id ISA service2_id?
     my (@isa) = $self->dbh->selectrow_array(q{select * from service_term2term where service2_id = ?},undef, $id);
     if (scalar @isa){
-        return (0, q{Service type $term has dependencies in the ontology},$lsid);
+        return (0, qq{Service type $term has dependencies in the ontology},$lsid);
     }
     
     $self->dbh->do(q{delete from service where service_id = ?}, undef,$id );