--- 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";