tt list heading sort link fixed

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

diff --git a/lib/Maypole/templates/factory/list b/lib/Maypole/templates/factory/list
index f0bc45c1ced59ca9289d8d7c22041620d40e483e..9abbc0104ad16a405f1f0596f23968e757d51905 100644 (file)
--- a/lib/Maypole/templates/factory/list
+++ b/lib/Maypole/templates/factory/list
@@ -27,6 +27,7 @@
                     SET action = "search";
                   END;
                 END;
+               USE model_obj = Class request.model_class;
                IF model_obj.find_column(col);
                   link(classmetadata.table, action, additional,
                     classmetadata.colnames.$col);