Fixed ordering with pager

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

diff --git a/templates/factory/pager b/templates/factory/pager
index 558da84d680fadb80e0663d94465e2fa069f83d0..bb78138691e6377de22150bc01273e2f31ce19b3 100644 (file)
--- a/templates/factory/pager
+++ b/templates/factory/pager
@@ -26,6 +26,10 @@ IF pager AND pager.first_page != pager.last_page;
           ELSE;
             SET label = num;
             SET args = "?page=" _ num;
+           SET args = args _ "&order=" _ request.query.order
+             IF request.query.order;
+           SET args = args _ "&o2=desc"
+             IF request.query.o2 == "desc";
             SET action = "list";
             FOR col = classmetadata.columns.list;
               IF request.query.$col;