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.lsp19
1 files changed, 19 insertions, 0 deletions
diff --git a/app/acf-util/logon-html.lsp b/app/acf-util/logon-html.lsp
new file mode 100644
index 0000000..cdac2bf
--- /dev/null
+++ b/app/acf-util/logon-html.lsp
@@ -0,0 +1,19 @@
+<? local form = ... ?>
+<h1>Logon</h1>
+
+<form action="<?= form.option.script .. form.option.prefix ..
+ form.option.controller .. "/" .. form.option.action ?>" method="POST">
+<table>
+<? local myform = form.value
+ for k,v in pairs(myform) do ?>
+<tr><td><?= v.name ?></td><td>
+<? if v.type == "submit" then ?>
+ <input type="submit" name="<?= v.name ?>" value="Logon">
+<? else ?>
+ <input type="text" name="<?= v.name ?>">
+ <font color=red><?= v.errtxt ?></font>
+<? end ?>
+</td></tr>
+<? end ?>
+</table>
+</form>