[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Wed Jul 27 14:06:50 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv30410/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
expecting a list of IDs instead of a database row

moby-live/Perl/MOBY OntologyServer.pm,1.63,1.64
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.63
retrieving revision 1.64
diff -u -r1.63 -r1.64
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/07/27 18:00:53	1.63
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/07/27 18:06:50	1.64
@@ -463,7 +463,7 @@
 	  unless defined $obj_lsid;
 	my $isa = $adaptor->query_object_term2term(type => $subj_lsid);
 	my $isarow = shift @$isa;
-	if ( $isarow->object_lsid ) {
+	if ( $isarow->{object_lsid} ) {
 		return (
 			0,
 			qq{Object type $args{subject_node} has existing object dependencies in the ontology.  It cannot be changed.},
@@ -520,7 +520,7 @@
 
 	my $isa = $adaptor->query_service_term2term(service2_id => $sbj_lsid);
 	my $isarow = shift @$isa;
-	if ( $isarow->service_lsid ) {
+	if ( $isarow->{service_lsid} ) {
 		return (
 			0,
 			qq{Service type $args{subject_node} has object dependencies in the ontology.  It can not be changed},