oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

bug fixes

Browse source
This commit is contained in:
JT Smith 2005-02-17 06:56:59 +00:00
parent 6fd12cdca1
commit 2dd25427cf
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/Asset.pm
View file

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