bunch of bug fixes

This commit is contained in:
JT Smith 2005-02-17 03:47:35 +00:00
parent c76829a4e3
commit 877c8e1afa
11 changed files with 28 additions and 4128 deletions

View file

@ -1408,8 +1408,8 @@ Optional specified lineage.
sub getRank {
my $self = shift;
my $lineage = shift || $self->get("lineage");
my ($rank) = $lineage =~ m/(.{6})$/;
my $rank = $rank - 0; # gets rid of preceeding 0s.
my $rank = $lineage =~ m/(.{6})$/;
$rank = $rank - 0; # gets rid of preceeding 0s.
return $rank;
}