--- Sprout.pm 2006/06/18 08:51:59 1.68 +++ Sprout.pm 2006/06/23 01:34:42 1.69 @@ -104,7 +104,7 @@ # user name and password port => $FIG_Config::dbport, # database connection port - sock => $FIG_Config::dbsock, + sock => $FIG_Config::dbsock, maxSegmentLength => 4500, # maximum feature segment length maxSequenceLength => 8000, # maximum contig sequence length noDBOpen => 0, # 1 to suppress the database open @@ -375,18 +375,19 @@ # Get the genomes. my @genomes = $self->GetAll(['Genome'], $filterString, $params, ['Genome(id)', 'Genome(genus)', - 'Genome(species)']); + 'Genome(species)', + 'Genome(unique-characterization)']); # Sort them by name. my @sorted = sort { lc("$a->[1] $a->[2]") cmp lc("$b->[1] $b->[2]") } @genomes; # Loop through the genomes, creating the option tags. for my $genomeData (@sorted) { # Get the data for this genome. - my ($genomeID, $genus, $species) = @{$genomeData}; + my ($genomeID, $genus, $species, $strain) = @{$genomeData}; # Get the contig count. my $count = $self->ContigCount($genomeID); my $counting = ($count == 1 ? "contig" : "contigs"); # Build the option tag. - $retVal .= "\n"; + $retVal .= "\n"; } # Close the SELECT tag. $retVal .= "\n";