From 2a8769a07ba2f1165b5432aa93c11275c4c22b15 Mon Sep 17 00:00:00 2001
From: Sebastian Riedel <sri@labs.kraih.com>
Date: Thu, 21 Oct 2004 18:49:14 +0000
Subject: [PATCH] fixed ordering

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

diff --git a/templates/factory/list b/templates/factory/list
index ac3635f..5e8a760 100644
--- 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;";
-- 
2.39.2