[MOBY-guts] biomoby commit

[Mark Wilkinson]

mwilkinson
Mon Oct 22 17:15:37 EDT 2007
Update of /home/repository/moby/moby-live/Perl/MOBY
In directory dev.open-bio.org:/tmp/cvs-serv17999/MOBY

Modified Files:
	OntologyServer.pm 
Log Message:
fixing Relationships code
moby-live/Perl/MOBY OntologyServer.pm,1.105,1.106
===================================================================
RCS file: /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm,v
retrieving revision 1.105
retrieving revision 1.106
diff -u -r1.105 -r1.106
--- /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2007/10/22 20:52:37	1.105
+++ /home/repository/moby/moby-live/Perl/MOBY/OntologyServer.pm	2007/10/22 21:15:37	1.106
@@ -1379,6 +1379,7 @@
     # enhance details with information about relationships and build result hash
     foreach my $entityId (@entityResultList) {
       # add articleName slot if necessary
+      next if $details->{$entityId};  # we've already processed this one
       if ( exists $hasRelDetails->{$entityId} ) {  # the only things that have RelDetails are HASA/HAS EntityIDs
 	foreach my $assert ( keys %{$hasRelDetails->{$entityId}} ) {
 	  # THIS DATA STRUCTURE IS WRONG - IT ASSUMES ONE ARTICLE NAME FOR EACH CONTAINED OBJECT TYPE