[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Aug 29 18:36:32 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv15921/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
adaptor wasn't querying relationships properly

moby-live/Perl/MOBY OntologyServer.pm,1.81,1.82
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.81
retrieving revision 1.82
diff -u -r1.81 -r1.82
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/08/23 22:35:21	1.81
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/08/29 22:36:32	1.82
@@ -1209,12 +1209,9 @@
 		$term = $self->getObjectURI($term);
 	}
 	return {} unless $term =~ /^urn\:lsid/;    # now its a URI
-	my $relhash =
-	  $self->getRelationshipTypes( ontology => $ontology )
-	  ;    # get teh types of relationships for the object/service ontology
+	my $relhash = $self->getRelationshipTypes( ontology => $ontology );    # get teh types of relationships for the object/service ontology
 	return {} unless $relhash;
-	my @rels = keys
-	  %{$relhash};    #@rels is the list of relationship types for that ontology
+	my @rels = keys %{$relhash};    #@rels is the list of relationship types for that ontology
 	my %relationships;
 	foreach my $relationship (@rels) {
 		my %IDS;