[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 30 11:19:30 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv22766/MOBY

Modified Files:
	Central.pm 
Log Message:
set client to default to isa

moby-live/Perl/MOBY Central.pm,1.210,1.211
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.210
retrieving revision 1.211
diff -u -r1.210 -r1.211
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/30 15:03:28	1.210
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2005/08/30 15:19:30	1.211
@@ -2946,7 +2946,7 @@
 	my $OS = MOBY::OntologyServer->new( ontology => $ontology );
 
 # WE WOULD PREFER TO LOOP OVER EACH KEY IN %RELTYPE HERE, BUT HARD CODED TO JUST ISA
-
+	$relationship  ||='isa';
 	my %rels = %{ $OS->Relationships(
 					 term => $term,
 					 expand => $expand_relationship,