[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Fri Jul 29 10:17:49 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv8757/MOBY

Modified Files:
	Central.pm OntologyServer.pm 
Log Message:
OntologyServer passing wrong arguments when registering new relationships.  Now passes LSIDs instead of database IDs

moby-live/Perl/MOBY Central.pm,1.193,1.194 OntologyServer.pm,1.68,1.69
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.193
retrieving revision 1.194
diff -u -r1.193 -r1.194
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/28 21:36:07	1.193
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/07/29 14:17:49	1.194
@@ -486,7 +486,6 @@
 	  $OntologyServer->objectExists( term => $class );
 	return &_error( "Object class $class does not exist", "" )
 	  unless ($existingURI);
-	my $dbh = MOBY::central_db_connection->new()->dbh;
 
 	my $errormsg = $adaptor->check_object_usage(type => $existingURI);
 	return &_error(

===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -r1.68 -r1.69
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/07/28 18:33:10	1.68
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/07/29 14:17:49	1.69
@@ -485,8 +485,8 @@
 			qq{Relationship $args{relationship} does not exist in the ontology},
 			'' );
 	my $insertid = $adaptor->insert_object_term2term(relationship_type => $rel_lsid, 
-							 object1_id => $subj_lsid,
-							 object2_id => $obj_lsid,
+							 object1_type => $subj_lsid,
+							 object2_type => $obj_lsid,
 							 object2_articlename => $args{articleName});
 	if ($insertid ) {
 		return ( 1, "Object relationsihp created successfully", '' );