X-Git-Url: https://git.decadent.org.uk/gitweb/?a=blobdiff_plain;f=templates%2Ffactory%2Fpager;h=0eaa0cb58a89dd8ee1a2e292e4207da18e2b5c97;hb=c88a8636e6a515a7d3a2ffc3e497a80103f237d0;hp=9defa40e0417d6efd028e0ed31579da4a3ffe487;hpb=7232f39368bec26e484089f9f81ab6b6dc94e9eb;p=maypole.git

diff --git a/templates/factory/pager b/templates/factory/pager
index 9defa40..0eaa0cb 100644
--- a/templates/factory/pager
+++ b/templates/factory/pager
@@ -1,3 +1,12 @@
+[%#
+
+=head1 pager
+
+This controls the pager display at the bottom (by default) of the list
+and search views. It expects a C<pager> template argument which responds
+to the L<Data::Page> interface.
+
+#%]
 [%
 IF pager AND pager.first_page != pager.last_page;
 %]
@@ -8,9 +17,9 @@ IF pager AND pager.first_page != pager.last_page;
           IF num == pager.current_page;
             "["; num; "] ";
           ELSE;
-          '<A HREF="'; base; classmetadata.moniker; "/list/?page="; num; '">';
-            "["; num; "]";
-          '</A> ';
+            SET args = "?page=" _ num; # Order?
+            SET label = "[" _ num _ "]";
+          link(classmetadata.table, "list", args, label);
           END;
      END;
 %]