summaryrefslogtreecommitdiffstats
path: root/openssl-checkenvironment-html.lsp
diff options
context:
space:
mode:
authorTed Trask <ttrask01@yahoo.com>2008-10-22 18:50:22 +0000
committerTed Trask <ttrask01@yahoo.com>2008-10-22 18:50:22 +0000
commit0dbeff8afd1f56b1ef5cc19acf9c4e34356c2980 (patch)
tree87f2f12943aee3e15645b7e205970d510f88a056 /openssl-checkenvironment-html.lsp
parenta39978f1ae31d39adceaeed028728d1b8441e4c0 (diff)
downloadacf-openssl-0dbeff8afd1f56b1ef5cc19acf9c4e34356c2980.tar.bz2
acf-openssl-0dbeff8afd1f56b1ef5cc19acf9c4e34356c2980.tar.xz
Modified viewfunctions to split displayform, creating displayformstart and displayformend, to provide flexibility while still using the library. Also added support for hidden fields - including a common redir field. Removed redirectOnSuccess from controllerfunctions handle_form, and replaced it with the redir field. Removed redirectOnSuccess from controllers that used it and added handlecommandresults and redir entries to links and forms throughout many views. This will cause a redirect to the originating view when a form is successfully completed. acf_www-controller now includes orig_action in page_info to report the original action launched by the user.
git-svn-id: svn://svn.alpinelinux.org/acf/openssl/trunk@1560 ab2d0c66-481e-0410-8bed-d214d4d58bed
Diffstat (limited to 'openssl-checkenvironment-html.lsp')
-rw-r--r--openssl-checkenvironment-html.lsp9
1 files changed, 5 insertions, 4 deletions
diff --git a/openssl-checkenvironment-html.lsp b/openssl-checkenvironment-html.lsp
index 1bd73a2..3fca9f0 100644
--- a/openssl-checkenvironment-html.lsp
+++ b/openssl-checkenvironment-html.lsp
@@ -8,8 +8,9 @@ io.write(html.cfe_unpack(form))
<H1><%= form.label %></H1>
<DL>
<% displayitem(form.value.status) %>
-<% if form.value.status.errtxt then %>
-<form action="<%= page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action %>" method="POST">
-<DT></DT><DD><input class="submit" type="submit" name="<%= form.option %>" value="<%= form.option %>"></DD>
-<% end %>
</DL>
+<% if form.value.status.errtxt then
+ form.action = page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action
+ displayformstart(form)
+ displayformend(form)
+end %>