From 54ed6f7e9e4afba2f8311a17b3acb033d879a13a Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Fri, 8 Jan 2010 09:11:35 -0800
Subject: [PATCH] Incremental change to write method in Asset.pm.  Actual code
 to follow soon.

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

diff --git a/lib/WebGUI/Asset.pm b/lib/WebGUI/Asset.pm
index f3adba56b..8985399bc 100644
--- a/lib/WebGUI/Asset.pm
+++ b/lib/WebGUI/Asset.pm
@@ -2343,6 +2343,12 @@ sub write {
 #	    push(@values, $self->getId, $self->get("revisionDate"));
 #	    $db->write("update ".$table." set ".join(",",@columnNames)." where assetId=? and revisionDate=?",\@values);
 #    }
+    ##Get list of classes
+    ##Get properties for only that class
+    ##Write them to the db.
+    CLASS: foreach my $meta (reverse $self->meta->get_all_class_metas()) {
+        my $table      = $meta->tableName;
+    }
 
     # we've changed something so we need to update our size
     $self->setSize();