From 2dd25427cfd66ff85ca7f1a4b60fd4216e6a92f3 Mon Sep 17 00:00:00 2001 From: JT Smith Date: Thu, 17 Feb 2005 06:56:59 +0000 Subject: [PATCH] bug fixes --- lib/WebGUI/Asset.pm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm index f576d8268..bf90a6476 100644 --- a/lib/WebGUI/Asset.pm +++ b/lib/WebGUI/Asset.pm @@ -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; }