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

clean up more uses of ->get

Browse source
This commit is contained in:
Graham Knop 2010-04-18 18:47:16 -05:00
parent 829bb7739e
commit c4204eff89
4 changed files with 42 additions and 41 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lib/WebGUI/AssetLineage.pm
View file

@ -483,7 +483,7 @@ Returns the number of Asset members in an Asset's lineage.
sub getLineageLength {
my $self = shift;
return length($self->get("lineage"))/6;
return length($self->lineage)/6;
}
#-------------------------------------------------------------------
@ -773,7 +773,7 @@ Optional specified lineage.
sub getRank {
my $self = shift;
my $lineage = shift || $self->get("lineage");
my $lineage = shift || $self->lineage;
$lineage =~ m/(.{6})$/;
my $rank = $1 - 0; # gets rid of preceeding 0s.
return $rank;