[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Tue Aug 23 14:22:28 EDT 2005
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory pub.open-bio.org:/tmp/cvs-serv22651/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
don't assume that there will be isa relationships either

moby-live/Perl/MOBY OntologyServer.pm,1.76,1.77
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.76
retrieving revision 1.77
diff -u -r1.76 -r1.77
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/08/23 18:13:30	1.76
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2005/08/23 18:22:28	1.77
@@ -527,8 +527,8 @@
 		expand =>  1);
 	 #relationships{relationship} = [[lsid1,articleNmae], [lsid2, articleName], [lsid3, articleName]]	
 	my ($isa) = keys(%$relationships);  # can only be one key returned, and must be isa in this case
-	return 1 unless $relationships->{$isa};
-	my @ISAlist = @{$relationships->{$isa}};
+	my @ISAlist;
+	(@ISAlist = @{$relationships->{$isa}}) if ($relationships->{$isa}) ;
 	foreach my $ISA(@ISAlist){  # $ISA = [lsid, articleName] (but articleName shuld be null anyway in this case)
 		my $what_it_is = shift @$ISA;
 		my $hasarelationships = $OS->Relationships(