From 14e124d2ebb81bb6e3f6af0b13326339c48ced4b Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Mon, 3 Mar 2014 22:12:09 +0000
Subject: Change HTML views to use htmlviewfunctions.displayheader

---
 app/debug-html.lsp | 21 ++++++++++++++-------
 1 file changed, 14 insertions(+), 7 deletions(-)

(limited to 'app/debug-html.lsp')

diff --git a/app/debug-html.lsp b/app/debug-html.lsp
index bf593f7..32f82d2 100644
--- a/app/debug-html.lsp
+++ b/app/debug-html.lsp
@@ -1,9 +1,16 @@
 <% local data, viewlibrary, page_info, session = ... %>
 <% htmlviewfunctions = require("htmlviewfunctions") %>
-<h1>Debugging</h1>
-<h2>View Data:</h2>
-<%= htmlviewfunctions.cfe_unpack(data) %>
-<h2>Session:</h2>
-<%= htmlviewfunctions.cfe_unpack(session) %>
-<h2>Page Info:</h2>
-<%= htmlviewfunctions.cfe_unpack(page_info) %>
+
+<%
+local header_level = htmlviewfunctions.displayheader(cfe({label="Debugging"}), page_info)
+header_level = htmlviewfunctions.incrementheader(header_level)
+
+htmlviewfunctions.displayheader(cfe({label="View Data:"}), page_info, header_level)
+io.write(htmlviewfunctions.cfe_unpack(data))
+
+htmlviewfunctions.displayheader(cfe({label="Session:"}), page_info, header_level)
+io.write(htmlviewfunctions.cfe_unpack(session))
+
+htmlviewfunctions.displayheader(cfe({label="Page Info:"}), page_info, header_level)
+io.write(htmlviewfunctions.cfe_unpack(page_info))
+%>
-- 
cgit v1.2.3