From 7a094cf04dd3fe002bf568e5bdbc29ddd833fb29 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Wed, 22 Feb 2012 20:45:51 +0000
Subject: Changed startstop to be a standard form by creating two model
 functions and deleting the special controller function

---
 app/startstop-html.lsp | 26 +++++++-------------------
 1 file changed, 7 insertions(+), 19 deletions(-)

(limited to 'app')

diff --git a/app/startstop-html.lsp b/app/startstop-html.lsp
index c98208b..0783483 100644
--- a/app/startstop-html.lsp
+++ b/app/startstop-html.lsp
@@ -1,22 +1,10 @@
 <% local data, viewlibrary, page_info = ... %>
+<% require("htmlviewfunctions") %>
 
 <H1>Management</H1>
-
-<% if data.value.result then %>
-<H2>Previous action result</H2>
-<% if data.value.result.value ~= "" then %>
-<P CLASS='descr'><%= string.gsub(html.html_escape(data.value.result.value), "\n", "<BR>") %></P>
-<% end if data.value.result.errtxt then %>
-<P CLASS='error'><%= string.gsub(html.html_escape(data.value.result.errtxt), "\n", "<BR>") %></P>
-<% end end %>
-
-<DL>
-<form action="<%= html.html_escape(page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action) %>" method="POST">
-<DT>Program control-panel</DT>
-<DD>
-<% for i,act in ipairs(data.value.actions.value) do %>
-	<input class="submit" type="submit" name="action" value="<%= act %>">
-<% end %>
-</DD>
-</form>
-</DL>
+<%
+for i,v in ipairs(data.option) do
+	data.option[i] = v:gsub("^%l", string.upper)
+end
+htmlviewfunctions.displayform(data, nil, nil, page_info)
+%>
-- 
cgit v1.2.3