[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.7, Thu Jun 8 19:44:02 2006 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 533  Line 533 
533          }          }
534      }      }
535      # Construct the spreadsheet cell ID from the information we have.      # Construct the spreadsheet cell ID from the information we have.
536      my $cellID = $self->{name} . ":$genomeID:$colIdx";      my $cellID = $sprout->DigestKey($self->{name} . ":$genomeID:$colIdx");
537      # Get the list of PEG IDs and cluster numbers for the indicated cell.      # Get the list of PEG IDs and cluster numbers for the indicated cell.
538      my @pegList = $sprout->GetAll(['ContainsFeature'], 'ContainsFeature(from-link) = ?',      my @pegList = $sprout->GetAll(['ContainsFeature'], 'ContainsFeature(from-link) = ?',
539                                    [$cellID], ['ContainsFeature(to-link)',                                    [$cellID], ['ContainsFeature(to-link)',
# 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.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3