[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Thu May  8 15:53:43 EDT 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv3876/Perl/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
fixed problem with HASA not getting articleName
moby-live/Perl/MOBY OntologyServer.pm,1.3,1.4
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/08 14:40:41	1.3
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2003/05/08 19:53:43	1.4
@@ -206,10 +206,10 @@
     if (scalar @isa){
         return (0, q{Object type $term has object dependencies in the ontology.  It can not be changed},$self->setURI($id));
     }
-    my ($relid) = $self->dbh->selectrow_array(q{select object_id from object where object_type = ?},undef,$args{ISA}); # get ID of the related object
-    $relid || return (0, q{Object $args{ISA} does not exist in the ontology},'');
+    my ($relid) = $self->dbh->selectrow_array(q{select object_id from object where object_type = ?},undef,$args{HASA}); # get ID of the related object
+    $relid || return (0, "Object $args{HASA} does not exist in the ontology",'');
     
-    $self->dbh->do(q{insert into object_term2term (relationship_type, object1_id, object2_id, object2_articlename) values (?,?,?,?)},undef,("URN:LSID:biomoby.org:ObjectRelation:ISA",$id,$relid,$args{'articleName'}));
+    $self->dbh->do(q{insert into object_term2term (relationship_type, object1_id, object2_id, object2_articlename) values (?,?,?,?)},undef,("URN:LSID:biomoby.org:ObjectRelation:HASA",$id,$relid,$args{'articleName'}));
     if ($self->dbh->{mysql_insertid}){
         return (1,"Object relationsihp created successfully",'');
     } else {