Templates should be valid XHTML now...

[maypole.git] / templates / factory / pager

diff --git a/templates/factory/pager b/templates/factory/pager
index 5f10f5905830ee5079b075af47f8f81d947f69b4..c10fdeed685a8f4025bc005dcb94b18e87a2e313 100644 (file)
--- a/templates/factory/pager
+++ b/templates/factory/pager
@@ -10,8 +10,7 @@ to the L<Data::Page> interface.
 [%
 IF pager AND pager.first_page != pager.last_page;
 %]
-
-<P ALIGN="center">Pages: 
+<p align=center>Pages: 
 [%
     SET begin_page = pager.current_page - 10;
     IF begin_page < 1;
@@ -25,11 +24,18 @@ IF pager AND pager.first_page != pager.last_page;
           IF num == pager.current_page;
             "["; num; "] ";
           ELSE;
-            SET args = "?page=" _ num; # Order?
             SET label = "[" _ num _ "]";
-          link(classmetadata.table, "list", args, label);
+            SET args = "?page=" _ num;
+            SET action = "list";
+            FOR col = classmetadata.columns.list;
+              IF request.query.$col;
+                SET args = args _ "&" _ col _ "=" _ request.query.$col;
+                SET action = "search";
+              END;
+            END;
+            link(classmetadata.table, action, args, label);
           END;
      END;
 %]
-</P>
+</p>
 [% END %]