[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Nov 24 13:06:45 EST 2003
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv15721/Perl/MOBY

Modified Files:
	Central.pm 
Log Message:
the default is supposed to return all, not nothing

moby-live/Perl/MOBY Central.pm,1.112,1.113
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/Central.pm,v
retrieving revision 1.112
retrieving revision 1.113
diff -u -r1.112 -r1.113
--- /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/11/24 17:25:48	1.112
+++ /home/repository/moby/moby-live/Perl/MOBY/Central.pm	2003/11/24 18:06:45	1.113
@@ -2339,7 +2339,9 @@
 	foreach (keys %rels){
 		my $rellsid = $OSrel->getRelationshipURI($ontology, $_);
 		next unless $rellsid;
-		next unless $reltypes{$rellsid};  # next unless it is one ofthe relationship types we requested
+		if (keys %reltypes){
+			next unless $reltypes{$rellsid};  # next unless it is one ofthe relationship types we requested
+		}
 		my $lsids = $rels{$rellsid};
 		next unless $lsids->[0];
 		$response .="<Relationship relationshipType='$rellsid'>\n";