From dac4a1452477cccce8593ce034511b24da8cbd45 Mon Sep 17 00:00:00 2001
From: biopete <biopete@invalid>
Date: Thu, 30 Mar 2006 22:34:45 +0000
Subject: [PATCH] tt list heading sort link fixed

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@469 48953598-375a-da11-a14b-00016c27c3ee
---
 lib/Maypole/templates/factory/list | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/Maypole/templates/factory/list b/lib/Maypole/templates/factory/list
index f0bc45c..9abbc01 100644
--- 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);
-- 
2.39.2