From 053b5a869ec490ae366135e4903e5e84cf400f48 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Thu, 4 Mar 2010 16:08:30 -0800
Subject: [PATCH] Rework get_tables to check each and every property.

---
 lib/WebGUI/Definition/Meta/Asset.pm | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/lib/WebGUI/Definition/Meta/Asset.pm b/lib/WebGUI/Definition/Meta/Asset.pm
index ee2dbcf0b..7e89320c4 100644
--- a/lib/WebGUI/Definition/Meta/Asset.pm
+++ b/lib/WebGUI/Definition/Meta/Asset.pm
@@ -76,13 +76,12 @@ Returns an array of the names of all tables in every class used by this class.
 =cut
 
 sub get_tables {
-    my $self       = shift;
-    my @tables = ();
-    my %seen       = ();
-    push @tables, 
+    my $self   = shift;
+    my %seen   = ();
+    my @tables = 
         grep { ! $seen{$_}++ }
         map  { $_->tableName }
-        $self->get_all_class_metas
+        $self->get_all_properties
     ;
     return @tables;
 }