[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.4, Mon Nov 28 22:52:11 2005 UTC revision 1.6, Thu Dec 8 19:51:37 2005 UTC
# Line 222  Line 222 
222      my ($self, $gidx) = @_;      my ($self, $gidx) = @_;
223      # Extract the variant code for the specified row index. It is the second      # Extract the variant code for the specified row index. It is the second
224      # element of the tuple from the "genomes" member.      # element of the tuple from the "genomes" member.
225      my $retVal = $self->{genomes}->{$gidx}->[1];      my $retVal = $self->{genomes}->[$gidx]->[1];
226      return $retVal;      return $retVal;
227  }  }
228    
# 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.4  
changed lines
  Added in v.1.6

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3