From 89b7ecdf5b0a6dbb921d4f85b471e8d7e449644e Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Tue, 13 Oct 2009 14:31:01 -0500
Subject: [PATCH] Asset definitions use tableName, not table_name

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

diff --git a/lib/WebGUI/Definition/Asset.pm b/lib/WebGUI/Definition/Asset.pm
index b9877e091..4d24fe3fb 100644
--- a/lib/WebGUI/Definition/Asset.pm
+++ b/lib/WebGUI/Definition/Asset.pm
@@ -28,11 +28,13 @@ sub import {
     }
     my $definition = (@_ == 1 && ref $_[0]) ? $_[0] : { @_ };
     if ( my $properties = $definition->{properties} ) {
-        my $table = $definition->{table_name};
+        my $table = $definition->{tableName};
         for ( my $i = 1; $i < @{ $properties }; $i += 2) {
-            $propeties->[$i]{table_name} = $table;
+            $propeties->[$i]{tableName} = $table;
         }
     }
+
+    # WebGUI::Definition->import uses caller, so avoid the extra entry in the call stack
     my $next = $class->next::can;
     @_ = ($class, $definition);
     goto $next;