ordering goodness for search results

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

diff --git a/templates/factory/list b/templates/factory/list
index b8f4fb8774925bfd5f24268a81ff4bf3a24bb1f2..ac3635fd27c690475b26fdeaf45c624534d4ef27 100644 (file)
--- a/templates/factory/list
+++ b/templates/factory/list
@@ -18,7 +18,15 @@
                     IF pager;
                 SET additional = additional _ "&o2=desc" 
                 IF col == request.query.order and request.query.o2 != "desc";
-                link(classmetadata.table, "list", additional,
+                SET action = "list";
+                FOR col = classmetadata.columns.list;
+                  IF request.query.$col;
+                    SET additional =
+                        additional  _ "&" _ col _ "=" _ request.query.$col;
+                    SET action = "search";
+                  END;
+                END;
+                link(classmetadata.table, action, additional,
                     classmetadata.colnames.$col);
                 IF col == request.query.order;
                     IF request.query.o2 != "desc";