Commit 3f8ed702 authored by Penom Nom's avatar Penom Nom
Browse files

No commit message

No commit message
parent 4ce75d9a
......@@ -333,30 +333,33 @@ foreach my $input(@ARGV)
{
foreach my $seq (keys %$hashLineage)
{
my $allRanks;
my @lineage = @{ $hashLineage->{$seq} };
my @scores = @{ $hashScores->{$seq} };
my $root = $lineage[0];
for ( my $i = 1; $i < @lineage; $i ++ )
if ($hashCount->{$seq} != "0")
{
if ( $lineage[$i] eq $root)
my $allRanks;
my @lineage = @{ $hashLineage->{$seq} };
my @scores = @{ $hashScores->{$seq} };
my $root = $lineage[0];
for ( my $i = 1; $i < @lineage; $i ++ )
{
setOption('name',$root );
$allRanks = 1;
next;
if ( $lineage[$i] eq $root)
{
setOption('name',$root );
$allRanks = 1;
next;
}
}
addByLineage
(
$tree,
$set,
\@lineage,
$seq,
$hashCount->{$seq},
undef,
\@scores
# $format ? ($allRanks ? undef : \@webRanks) : \@ranks
);
}
addByLineage
(
$tree,
$set,
\@lineage,
$seq,
$hashCount->{$seq},
undef,
\@scores
# $format ? ($allRanks ? undef : \@webRanks) : \@ranks
);
}
if ( ! getOption('combine') )
{
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment