From f9780f645bc94f2f79fc4e266e671d15232d4b9d Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Tue, 4 Mar 2014 02:41:32 +0000
Subject: Change HTML views to use htmlviewfunctions.displayheader

Modified some models to change labels
---
 health-storage-html.lsp | 16 ++++++++++------
 1 file changed, 10 insertions(+), 6 deletions(-)

(limited to 'health-storage-html.lsp')

diff --git a/health-storage-html.lsp b/health-storage-html.lsp
index 786a32c..2335132 100644
--- a/health-storage-html.lsp
+++ b/health-storage-html.lsp
@@ -1,4 +1,5 @@
-<% local view = ... %>
+<% local view, viewlibrary, page_info, session = ... %> 
+<% htmlviewfunctions = require("htmlviewfunctions") %>
 <% html = require("acf.html") %>
 
 <% displaydisk = function(disk, name)
@@ -30,9 +31,12 @@ io.write("	</tr>\n")
 io.write("</table>\n")
 end %>
 
-<h1>Storage</h1>
+<%
+local header_level = htmlviewfunctions.displayheader(view, page_info)
+header_level = htmlviewfunctions.incrementheader(header_level)
+%>
 
-<h2>Floppy capacity</h2>
+<% htmlviewfunctions.displayheader(cfe({label="Floppy capacity"}), page_info, header_level) %>
 <% if (view.value.floppy) then
 for name,floppy in pairs(view.value.floppy.value) do
 	displaydisk(floppy, name)
@@ -41,7 +45,7 @@ else %>
 <p>No Floppy mounted</p>
 <% end %>
 
-<h2>Harddrive capacity</h2>
+<% htmlviewfunctions.displayheader(cfe({label="Harddrive capacity"}), page_info, header_level) %>
 <% if (view.value.hd) then 
 for name,hd in pairs(view.value.hd.value) do
 	displaydisk(hd, name)
@@ -50,7 +54,7 @@ else %>
 <p>No Harddrive mounted</p>
 <% end %>
 
-<h2>RAM Disk capacity</h2>
+<% htmlviewfunctions.displayheader(cfe({label="RAM Disk capacity"}), page_info, header_level) %>
 <% if (view.value.ramdisk) then 
 for name,ramdisk in pairs(view.value.ramdisk.value) do
 	displaydisk(ramdisk, name)
@@ -60,7 +64,7 @@ else %>
 <% end %>
 
 <% if view.value.partitions then %>
-<h2>Disk partitions</h2>
+<% htmlviewfunctions.displayheader(cfe({label="Disk partitions"}), page_info, header_level) %>
 <pre><%= html.html_escape(view.value.partitions.value) %></pre>
 <% end %>
 
-- 
cgit v1.2.3