summaryrefslogtreecommitdiffstats
path: root/app/acf-util/logon-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'app/acf-util/logon-html.lsp')
-rw-r--r--app/acf-util/logon-html.lsp21
1 files changed, 10 insertions, 11 deletions
diff --git a/app/acf-util/logon-html.lsp b/app/acf-util/logon-html.lsp
index 20aa0ee..f503a9b 100644
--- a/app/acf-util/logon-html.lsp
+++ b/app/acf-util/logon-html.lsp
@@ -1,20 +1,19 @@
<? local form = ... ?>
+<? require("viewfunctions") ?>
<? --[[
io.write(html.cfe_unpack(form))
--]] ?>
-<? if form.errtxt ~= "" then ?>
+<? if form.errtxt then ?>
<h1>Command Result</h1>
<p class='error'> <?= form.errtxt ?></p>
<? end ?>
-<h1>Logon</h1>
-<form action="logon" method="POST">
-<DL>
- <DT>User id</DT>
- <DD><input class="text" type="text" name="userid" value="<?= form.value ?>"></DD>
- <DT>Password</DT>
- <DD><input class="password" type="password" name="password" value=""></DD>
- <DT><input class="submit" type="submit" name="Logon" value="Logon"></DD>
-</DL>
-</form>
+<h1><?= form.label ?></h1>
+<?
+ form.action = "logon"
+ form.submit = "Logon"
+ form.value.password.type = "password"
+ local order = { "userid", "password" }
+ displayform(form, order)
+?>