From 37a61d7a8f2538b1fcb0f9b636345c84d74d5cf6 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 10 Apr 2014 04:59:37 +0000
Subject: Changes to use new htmlviewfunctions functions

---
 lbu-listbackups-html.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lbu-listbackups-html.lsp')

diff --git a/lbu-listbackups-html.lsp b/lbu-listbackups-html.lsp
index 9b656cc..2da5ab4 100644
--- a/lbu-listbackups-html.lsp
+++ b/lbu-listbackups-html.lsp
@@ -23,7 +23,7 @@ html = require("acf.html")
 
 <% htmlviewfunctions.displaycommandresults({"selectbackup"}, session) %>
 
-<h1>Backup Archives</h1>
+<% local header_level = htmlviewfunctions.displaysectionstart(view, page_info) %>
 <% if #view.value == 0 then %>
 <p>No backup files</p>
 <% else %>
@@ -35,9 +35,10 @@ html = require("acf.html")
 	</thead><tbody>
 	<% for i,name in ipairs(view.value) do %>
 		<tr><td>
-			<%= html.link{value="selectbackup?backup="..name.."&redir=config&submit=true", label="Revert "} %>
+			<% htmlviewfunctions.displayitem(cfe({type="link", value={backup=cfe({ type="hidden", value=name })}, label="", option="Revert", action="selectbackup"}), page_info, -1) %>
 		</td>
 		<td><%= html.html_escape(name) %></td></tr>
 	<% end %>
 	</tbody></table>
 <% end %>
+<% htmlviewfunctions.displaysectionend(header_level) %>
-- 
cgit v1.2.3