bug fixes
This commit is contained in:
parent
6fd12cdca1
commit
2dd25427cf
1 changed files with 2 additions and 2 deletions
|
|
@ -1408,8 +1408,8 @@ Optional specified lineage.
|
|||
sub getRank {
|
||||
my $self = shift;
|
||||
my $lineage = shift || $self->get("lineage");
|
||||
my $rank = $lineage =~ m/(.{6})$/;
|
||||
$rank = $rank - 0; # gets rid of preceeding 0s.
|
||||
$lineage =~ m/(.{6})$/;
|
||||
my $rank = $1 - 0; # gets rid of preceeding 0s.
|
||||
return $rank;
|
||||
}
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue