103 |
my $genomeID = $deletedGenome->[0]; |
my $genomeID = $deletedGenome->[0]; |
104 |
if ($fig->is_genome($genomeID)) { |
if ($fig->is_genome($genomeID)) { |
105 |
my $complete = ($fig->is_complete($genomeID) ? "complete" : "incomplete"); |
my $complete = ($fig->is_complete($genomeID) ? "complete" : "incomplete"); |
106 |
$deletedGenome->[1] .= " still in SEED, $complete"; |
$deletedGenome->[1] .= "(still in SEED, $complete)"; |
107 |
} |
} |
108 |
} |
} |
109 |
# Display the lists. |
# Display the lists. |
155 |
my $subID = $deletedSub->[0]; |
my $subID = $deletedSub->[0]; |
156 |
if ($subChecker{$subID}) { |
if ($subChecker{$subID}) { |
157 |
my $trusted = ($fig->usable_subsystem($subID) ? "usable" : "not usable"); |
my $trusted = ($fig->usable_subsystem($subID) ? "usable" : "not usable"); |
158 |
$deletedSub->[1] .= ", still in SEED, $trusted"; |
$deletedSub->[1] .= " (still in SEED, $trusted)"; |
159 |
} |
} |
160 |
} |
} |
161 |
} |
} |