Add in "table" to the class metadata.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@106 48953598-375a-da11-a14b-00016c27c3ee

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index bdcebb2fee120f62e7ac46f31efd5f89847f75d3..a1960bacca977100da054681f082ba365bde05a0 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -33,6 +33,7 @@ sub _args {
     if ($class) { 
         $args{classmetadata} = {
             name => $class,
+            table => $class->table,
             columns => [ $class->display_columns ],
             colnames => { $class->column_names },
             related_accessors => [ $class->related($r) ],