From cf40da6e1bfe61dd662f15e2b5ed47f45ce6ffdb Mon Sep 17 00:00:00 2001
From: Aaron Trevena <aaron.trevena@gmail.com>
Date: Tue, 11 Oct 2005 19:00:10 +0000
Subject: [PATCH] fix for http://rt.cpan.org/Ticket/Display.html?id=14873

git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@393 48953598-375a-da11-a14b-00016c27c3ee
---
 templates/factory/list | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/templates/factory/list b/templates/factory/list
index 5a4388e..dbbedaf 100644
--- a/templates/factory/list
+++ b/templates/factory/list
@@ -27,15 +27,19 @@
                     SET action = "search";
                   END;
                 END;
-                link(classmetadata.table, action, additional,
+		IF model_obj.find_column(col);
+                  link(classmetadata.table, action, additional,
                     classmetadata.colnames.$col);
-                IF col == request.params.order;
+                  IF col == request.params.order;
                     IF request.params.o2 != "desc";
                         "&darr;";
                     ELSE;
                         "&uarr;";
                     END;
-                END;
+                  END;
+		ELSE;
+		  classmetadata.colnames.$col || col FILTER ucfirst;
+		END;
                 "</th>";
             END %]
 	    <th id="actionth">Actions</th>
-- 
2.39.5