From 9ff9f31f147b62181d6e57b609f3a26711d6e429 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 1 Jan 2010 09:32:13 -0800
Subject: [PATCH] Add more asset data attributes.

---
 lib/WebGUI/Asset.pm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index 1be61226f..4f451ee3b 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -243,6 +243,16 @@ has       assetId => (
             lazy            => 1,
             default         => sub { shift->session->id->generate() },
           );
+has       [qw/parentId     lineage   className
+              creationDate createdBy
+              state stateChanged stateChangedBy
+              isLockedBy isSystem lastExportedAs/] => (
+            is              => 'rw',
+          );
+has       className  => (
+            is              => 'ro',
+            default         => sub { ref shift; },
+          );
 
 around BUILDARGS => sub {
     my $orig            = shift;