fixed ordering

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

diff --git a/templates/factory/list b/templates/factory/list
index ac3635fd27c690475b26fdeaf45c624534d4ef27..5e8a760e291fcf850d0efac3f4a47e1e824182da 100644 (file)
--- a/templates/factory/list
+++ b/templates/factory/list
@@ -13,6 +13,7 @@
             [% FOR col = classmetadata.list_columns.list;
                 NEXT IF col == "id";
                 "<th>"; 
+                SET title = classmetadata.colnames.$col;
                 SET additional = "?order=" _ col;
                 SET additional = additional _ "&amp;page=" _ pager.current_page
                     IF pager;
@@ -26,8 +27,7 @@
                     SET action = "search";
                   END;
                 END;
-                link(classmetadata.table, action, additional,
-                    classmetadata.colnames.$col);
+                link(classmetadata.table, action, additional, title);
                 IF col == request.query.order;
                     IF request.query.o2 != "desc";
                         "&darr;";