Distinguish between all columns, and the ones you want to display, in

the right order.

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

diff --git a/lib/Maypole/Model/Base.pm b/lib/Maypole/Model/Base.pm
index c4c959f7c7c42a4c2b0b0ec933bc56242120b83b..12bb71d24e614cd0e66d87043c2bc6b4108fcbfb 100644 (file)
--- a/lib/Maypole/Model/Base.pm
+++ b/lib/Maypole/Model/Base.pm
@@ -13,6 +13,10 @@ sub process {
     $class->$method($r);
 }
 
+sub display_columns { 
+    sort shift->columns;
+}
+
 =head1 NAME
 
 Maypole::Model::Base - Base class for model classes
@@ -70,7 +74,9 @@ beers, so C<BeerDB::Brewery> needs to return C<beers>.
 
 =head2 columns
 
-This is a list of the columns in a table.
+This is a list of all the columns in a table. You may also override
+C<display_columns>, which is the list of columns you want to view, in
+the right order.
 
 =head2 table
 

diff --git a/lib/Maypole/View/TT.pm b/lib/Maypole/View/TT.pm
index 3c2e05fef0f209fd4a772894f1f065890ff4a727..834fcaf5c2d97fefaa934c09e35824a4a0b0b0d9 100644 (file)
--- a/lib/Maypole/View/TT.pm
+++ b/lib/Maypole/View/TT.pm
@@ -34,7 +34,7 @@ sub _args {
     if ($class) { 
         $args{classmetadata} = {
             name => $class,
-            columns => [ $class->columns ],
+            columns => [ $class->display_columns ],
             colnames => { $class->column_names },
             related_accessors => [ $class->related($r) ],
             moniker => $class->moniker,