From 77a0025e476071c0016383328cce59259c7fbacb Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 10 Apr 2014 06:21:29 +0000
Subject: Changes to use new htmlviewfunctions functions

---
 fetchmail-config-html.lsp | 14 ++++++--------
 1 file changed, 6 insertions(+), 8 deletions(-)

(limited to 'fetchmail-config-html.lsp')

diff --git a/fetchmail-config-html.lsp b/fetchmail-config-html.lsp
index d23df93..87cab3c 100644
--- a/fetchmail-config-html.lsp
+++ b/fetchmail-config-html.lsp
@@ -8,14 +8,12 @@
 	viewlibrary.dispatch_component("status")
 end %>
 
-<h1>Global Settings</h1>
-<div class='item'><p class='left'>Edit global settings</p>
-<div class='right'>
-<form action="<%= html.html_escape(page_info.script .. page_info.prefix .. page_info.controller .. "/editconfig") %>" method="post">
-<input class="hidden" type="hidden"  name="redir"  value="<%= html.html_escape(page_info.orig_action) %>" >
-<input type=submit value="Edit" class="submit">
-</form>
-</div></div><!-- end .item -->
+<%
+local redir = cfe({ type="hidden", value=page_info.orig_action })
+local header_level = htmlviewfunctions.displaysectionstart(cfe({ label="Global Settings" }), page_info)
+htmlviewfunctions.displayitem(cfe({type="link", value={redir=redir}, label="Edit global settings", option="Edit", action="editconfig"}), page_info, 0)
+htmlviewfunctions.displaysectionend(header_level)
+%>
 
 <% if viewlibrary and viewlibrary.dispatch_component then
 	viewlibrary.dispatch_component("listentries")
-- 
cgit v1.2.3