From 83591a31c7d27155e47b35c2e62d2662b759f462 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Mon, 21 Sep 2009 11:03:41 +0000
Subject: Added pagination for history and usage, more precision for history
 timestamp.

---
 weblog-viewusagestats-html.lsp | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'weblog-viewusagestats-html.lsp')

diff --git a/weblog-viewusagestats-html.lsp b/weblog-viewusagestats-html.lsp
index 706b86c..708b374 100644
--- a/weblog-viewusagestats-html.lsp
+++ b/weblog-viewusagestats-html.lsp
@@ -1,5 +1,10 @@
 <% local data, viewlibrary, page_info, session = ... %>
+<% require("viewfunctions") %>
+
+<% local subdata, pagedata = paginate(data.value, page_info.clientdata, 100) %>
+
 <H1><%= html.html_escape(data.label) %></H1>
+<% displaypagination(pagedata, page_info) %>
 <TABLE>
 	<TR style="background:#eee;font-weight:bold;">
 		<TD style="padding-right:20px;white-space:nowrap;" class="header">Date</TD>
@@ -8,7 +13,7 @@
 		<TD style="white-space:nowrap;" WIDTH="90%" class="header">Blocks</TD>
 	</TR>
 
-<% for i,stat in ipairs(data.value) do %>
+<% for i,stat in ipairs(subdata) do %>
 	<TR>
 		<TD><%= html.html_escape(stat.date) %></TD>
 		<TD><%= html.html_escape(stat.sourcename) %></TD>
-- 
cgit v1.2.3