From b7761ce50eafa2cbfaa427f287cfb5ceed2fb143 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 15 Jan 2010 16:59:34 -0800
Subject: [PATCH] Move getParent over to using Moose attributes.

---
 lib/WebGUI/AssetLineage.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/WebGUI/AssetLineage.pm b/lib/WebGUI/AssetLineage.pm
index 01dbbf1f1..5ad0c8d6a 100644
--- a/lib/WebGUI/AssetLineage.pm
+++ b/lib/WebGUI/AssetLineage.pm
@@ -725,7 +725,7 @@ sub getParent {
     return $self if ($self->getId eq "PBasset000000000000001");
 
     unless ( $self->{_parent} ) {
-        $self->{_parent} = WebGUI::Asset->newById($self->session,$self->get("parentId"));
+        $self->{_parent} = WebGUI::Asset->newById($self->session,$self->parentId);
     }
 
     return $self->{_parent};