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

Diff of /Sprout/Sapling.pm

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

revision 1.38, Tue Jan 11 15:04:03 2011 UTC revision 1.39, Sun Feb 20 13:04:23 2011 UTC
# Line 1773  Line 1773 
1773  sub SectionList {  sub SectionList {
1774      # Get the parameters.      # Get the parameters.
1775      my ($self) = @_;      my ($self) = @_;
1776        # The section names will be put in here.
1777        my @retVal;
1778      # Get the genome hash.      # Get the genome hash.
1779      my $genomes = $self->GenomeHash();      my $genomes = $self->GenomeHash();
1780      # Create one section per genome.      # Check to see if we have alias files. If we do, we restrict our sections to ones
1781      my @retVal = sort keys %$genomes;      # for which alias files exist.
1782        my @aliasFiles = Tracer::OpenDir($self->LoadDirectory() . "/AliasData", 1, 1);
1783        if (@aliasFiles) {
1784            for my $aliasFile (sort @aliasFiles) {
1785                if ($aliasFile =~ /alias\.(\d+\.\d+)\.tbl/) {
1786                    my $genome = $1;
1787                    if ($genomes->{$genome}) {
1788                        push @retVal, $genome;
1789                    }
1790                }
1791            }
1792        } else {
1793            # No alias files, so just use them all.
1794            @retVal = sort keys %$genomes;
1795        }
1796      # Append the global section.      # Append the global section.
1797      push @retVal, GLOBAL;      push @retVal, GLOBAL;
1798      # Return the section list.      # Return the section list.

Legend:
Removed from v.1.38  
changed lines
  Added in v.1.39

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3