[Bio] / Sprout / ERDB.pm Repository:
ViewVC logotype

Diff of /Sprout/ERDB.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.98, Mon Jul 7 19:05:55 2008 UTC revision 1.99, Fri Jul 11 01:04:08 2008 UTC
# Line 705  Line 705 
705          my $entityData = $entityList->{$key};          my $entityData = $entityList->{$key};
706          # Plant the notes here, if there are any.          # Plant the notes here, if there are any.
707          push @retVal, _ObjectNotes($entityData);          push @retVal, _ObjectNotes($entityData);
         # Get the entity's relations.  
         my $relationList = $entityData->{Relations};  
         # Loop through the relations, displaying them.  
         for my $relation (sort keys %{$relationList}) {  
             my $wikiString = _WikiRelationTable($relation, $relationList->{$relation});  
             push @retVal, $wikiString;  
         }  
708          # Now we list the entity's relationships (if any). First, we build a list          # Now we list the entity's relationships (if any). First, we build a list
709          # of the relationships relevant to this entity.          # of the relationships relevant to this entity.
710          my @rels = ();          my @rels = ();
# Line 728  Line 721 
721          }          }
722          # Add the relationships as a Wiki list.          # Add the relationships as a Wiki list.
723          push @retVal, WikiTools::List(@rels);          push @retVal, WikiTools::List(@rels);
724            # Get the entity's relations.
725            my $relationList = $entityData->{Relations};
726            # Loop through the relations, displaying them.
727            for my $relation (sort keys %{$relationList}) {
728                my $wikiString = _WikiRelationTable($relation, $relationList->{$relation});
729                push @retVal, $wikiString;
730            }
731      }      }
732      # Now the entities are documented. Next we do the relationships.      # Now the entities are documented. Next we do the relationships.
733      push @retVal, WikiTools::Heading(2, "Relationships");      push @retVal, WikiTools::Heading(2, "Relationships");
Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99
MCS Webmaster
 ViewVC Help
Powered by ViewVC 1.0.3