From 22ed66cbefd7c1bae9c2710e88b080b811e98778 Mon Sep 17 00:00:00 2001
From: Simon Cozens <simon@simon-cozens.org>
Date: Fri, 2 Apr 2004 11:53:14 +0000
Subject: [PATCH] Add in "table" to the class metadata.

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@106 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/View/TT.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index bdcebb2..a1960ba 100644
--- 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) ],
-- 
2.39.2