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

diff --git a/templates/factory/list b/templates/factory/list
index 5a4388e749a360cca3ae0f79f21bddec67cf52b5..dbbedafb786171b659479b92e2987dd270882773 100644 (file)
--- 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";
                         "↓";
                     ELSE;
                         "↑";
                     END;
-                END;
+                  END;
+               ELSE;
+                 classmetadata.colnames.$col || col FILTER ucfirst;
+               END;
                 "</th>";
             END %]
            <th id="actionth">Actions</th>