From f528595c7e162132b0b5c969df034a353920985f Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Sun, 13 Apr 2014 22:30:11 +0000
Subject: Changes to use new htmlviewfunctions functions

---
 ppp-listpeers-html.lsp | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/ppp-listpeers-html.lsp b/ppp-listpeers-html.lsp
index 75a58aa..aee06ed 100644
--- a/ppp-listpeers-html.lsp
+++ b/ppp-listpeers-html.lsp
@@ -24,25 +24,33 @@ html = require("acf.html")
 <% htmlviewfunctions.displaycommandresults({"deletepeer", "editpeer"}, session) %>
 <% htmlviewfunctions.displaycommandresults({"createpeer"}, session, true) %>
 
-<h1>Peer Files</h1>
+<% local header_level = htmlviewfunctions.displaysectionstart(form, page_info) %>
 <table id="list" class="tablesorter"><thead>
 	<tr>
 		<th>Action</th>
 		<th>Peer File</th>
 	</tr>
 </thead><tbody>
+<% local name = cfe({ type="hidden", value="" }) %>
+<% local redir = cfe({ type="hidden", value=page_info.orig_action }) %>
 <% for i,file in ipairs(form.value) do %>
 	<tr>
 		<td>
 			<%
-			if viewlibrary.check_permission("deletepeer") then io.write(html.link{value = "deletepeer?submit=true&name=" .. file, label="Delete " }) end
-			if viewlibrary.check_permission("editpeer") then io.write(html.link{value = "editpeer?name=" .. file.."&redir="..page_info.orig_action, label="Edit " }) end
+			name.value = file
+			if viewlibrary.check_permission("deletepeer") then 
+				htmlviewfunctions.displayitem(cfe({type="form", value={name=name}, label="", option="Delete", action="deletepeer"}), page_info, -1)
+			end
+			if viewlibrary.check_permission("editpeer") then
+				htmlviewfunctions.displayitem(cfe({type="link", value={name=name, redir=redir}, label="", option="Edit", action="editpeer"}), page_info, -1)
+			end
 			%>
 		</td>
 		<td><%= html.html_escape(string.gsub(file, "^.*/", "")) %></td>
 	</tr>
 <% end %>
 </tbody></table>
+<% htmlviewfunctions.displaysectionend(header_level) %>
 
 <% if viewlibrary and viewlibrary.dispatch_component and viewlibrary.check_permission("createpeer") then
 	viewlibrary.dispatch_component("createpeer")
-- 
cgit v1.2.3