From dcc661f417dd9bfa8b3457c58d5649bb5f1b3659 Mon Sep 17 00:00:00 2001 From: Sebastian Riedel Date: Thu, 21 Oct 2004 19:14:00 +0000 Subject: [PATCH] final fix git-svn-id: http://svn.maypole.perl.org/Maypole/trunk@255 48953598-375a-da11-a14b-00016c27c3ee --- templates/factory/list | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) diff --git a/templates/factory/list b/templates/factory/list index 5e8a760..03a712b 100644 --- a/templates/factory/list +++ b/templates/factory/list @@ -13,21 +13,22 @@ [% FOR col = classmetadata.list_columns.list; NEXT IF col == "id"; ""; - SET title = classmetadata.colnames.$col; SET additional = "?order=" _ col; - SET additional = additional _ "&page=" _ pager.current_page + SET additional = additional _ "&page=" _ pager.current_page IF pager; - SET additional = additional _ "&o2=desc" + SET additional = additional _ "&o2=desc" IF col == request.query.order and request.query.o2 != "desc"; SET action = "list"; - FOR col = classmetadata.columns.list; - IF request.query.$col; + FOR name = classmetadata.columns.list; + IF request.query.$name; SET additional = - additional _ "&" _ col _ "=" _ request.query.$col; + additional _ "&" _ name _ "=" _ + request.query.$name; SET action = "search"; END; END; - link(classmetadata.table, action, additional, title); + link(classmetadata.table, action, additional, + classmetadata.colnames.$col); IF col == request.query.order; IF request.query.o2 != "desc"; "↓"; -- 2.39.5