[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 23 13:37:46 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi
In directory pub.open-bio.org:/tmp/cvs-serv22349/MOBY/Adaptor/moby/queryapi

Modified Files:
	mysql.pm 
Log Message:
relationships being queried from object ontology server.  ugh

moby-live/Perl/MOBY/Adaptor/moby/queryapi mysql.pm,1.70,1.71
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm,v
retrieving revision 1.70
retrieving revision 1.71
diff -u -r1.70 -r1.71
--- /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/08/17 19:30:18	1.70
+++ /home/repository/moby/moby-live/Perl/MOBY/Adaptor/moby/queryapi/mysql.pm	2005/08/23 17:37:46	1.71
@@ -1320,13 +1320,8 @@
 	my $dbh = $self->dbh;
 	my $direction = $args{'direction'};
 	my $ontology = $args{'ontology'};
-	my $relationship = $args{'relationship'};
+	my $relationship = $args{'relationship'}; # this is assumed to be an LSID
 
-	if ($relationship){ # need it as an lsid
-	    my $result = $self->query_relationship(type => $relationship, ontology => $ontology);
-	    my $row = shift @$result;
-	    $relationship = $row->{relationship_lsid};
-	}	    
 	my $type = $args{'term'};
 	return 0 unless $type;
 	my $lsid;