From f8cbed38de0516e54a77641171e352153a2b4fdf Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Wed, 22 Oct 2008 20:36:29 +0000
Subject: Modified viewfunctions displaycommandresults to not delete the error
 results of a form so the form can still display it.  Modified a bunch of
 views to display the results of component forms.  Also added code to
 displayform and displayformstart to automatically generate the action if
 passed page_info.

git-svn-id: svn://svn.alpinelinux.org/acf/dnscache/trunk@1561 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 dnscache-config-html.lsp      | 4 +++-
 dnscache-listdomains-html.lsp | 1 +
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/dnscache-config-html.lsp b/dnscache-config-html.lsp
index d18dd79..9272f40 100644
--- a/dnscache-config-html.lsp
+++ b/dnscache-config-html.lsp
@@ -1,4 +1,4 @@
-<% local form, viewlibrary, page_info = ... 
+<% local form, viewlibrary, page_info, session = ... 
 require("viewfunctions")
 %>
 <%
@@ -9,6 +9,8 @@ io.write("</span>")
 --]]
 %>
 
+<% displaycommandresults({"startstop"}, session) %>
+
 <% if viewlibrary and viewlibrary.dispatch_component then
 	viewlibrary.dispatch_component("status")
 end %>
diff --git a/dnscache-listdomains-html.lsp b/dnscache-listdomains-html.lsp
index aae7e2d..634b733 100644
--- a/dnscache-listdomains-html.lsp
+++ b/dnscache-listdomains-html.lsp
@@ -10,6 +10,7 @@ io.write("</span>")
 %>
 
 <% displaycommandresults({"editdomain", "deletedomain"}, session) %>
+<% displaycommandresults({"createdomain"}, session, true) %>
 
 <h1>Configuration</h1>
 <h2>Edit/View DNS server entries</h2>
-- 
cgit v1.2.3