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

Diff of /Sprout/SproutSubsys.pm

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

revision 1.5, Thu Dec 8 18:04:12 2005 UTC revision 1.6, Thu Dec 8 19:51:37 2005 UTC
# Line 590  Line 590 
590      my ($self) = @_;      my ($self) = @_;
591      # Find the subsystem directory.      # Find the subsystem directory.
592      my $subDir = Subsystem::get_dir_from_name($self->{name});      my $subDir = Subsystem::get_dir_from_name($self->{name});
593        Trace("Subsystem directory is $subDir.") if T(3);
594      # Get the diagram IDs.      # Get the diagram IDs.
595      my @diagramIDs = Subsystem::GetDiagramIDs($subDir);      my @diagramIDs = Subsystem::GetDiagramIDs($subDir);
596        Trace("Diagram IDs are " . join(", ", @diagramIDs)) if T(3);
597      # Create the return variable.      # Create the return variable.
598      my @retVal = ();      my @retVal = ();
599      # Loop through the diagram IDs.      # Loop through the diagram IDs.
600      for my $diagramID (@diagramIDs) {      for my $diagramID (@diagramIDs) {
601            Trace("Processing diagram $diagramID.") if T(3);
602          # Get the diagram name.          # Get the diagram name.
603          my $name = Subsystem::GetDiagramName($diagramID);          my $name = Subsystem::GetDiagramName($subDir, $diagramID);
604          # If a name was found, get the URLs.          Trace("Diagram name is $name.") if T(3);
605          if ($name) {          # Get the URLs.
606              my ($link, $imgLink) = Subsystem::ComputeDiagramURLs($self->{name},              my ($link, $imgLink) = Subsystem::ComputeDiagramURLs($self->{name},
607                                                                   $diagramID);                                                                   $diagramID);
608            Trace("Diagram URLs are \"$link\" and \"$imgLink\".") if T(3);
609              push @retVal, [$diagramID, $name, $link, $imgLink];              push @retVal, [$diagramID, $name, $link, $imgLink];
610          }          }
611      }      # Return the result.
612        return @retVal;
613  }  }
614    
615    

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3