diff options
Diffstat (limited to 'app/acf-util/logon-html.lsp')
| -rw-r--r-- | app/acf-util/logon-html.lsp | 27 |
1 files changed, 17 insertions, 10 deletions
diff --git a/app/acf-util/logon-html.lsp b/app/acf-util/logon-html.lsp index a1d3f33..9a930a2 100644 --- a/app/acf-util/logon-html.lsp +++ b/app/acf-util/logon-html.lsp @@ -1,17 +1,24 @@ <? local form = ... ?> <h1>Logon</h1> +<? --[[ ?> <?= html.cfe_unpack(form) ?> +<? --]] ?> <form action="<?= form.logon.option.script .. form.logon.option.prefix .. form.logon.option.controller .. "/" .. form.logon.option.action ?>" method="POST"> -<? local myform = form.logon.value - for k,v in pairs(myform) do ?> - <DT><?= v.name ?></DT> - <? if v.type == "submit" then ?> - <DD><input class="submit" type="submit" name="<?= v.name ?>" value="Logon"></DD> - <? else ?> - <DD><input class="text" type="text" name="<?= v.name ?>"> - <font color=red><?= v.errtxt ?></font></DD> - <? end ?> -<? end ?> +<DL> +<? +local myform = form.logon.value +for k,v in pairs(myform) do + io.write("\t<DT") + if (#v.errtxt > 0) then io.write(" class='error'") end + io.write(">" .. v.label .. "</DT>\n") + + io.write("\t\t<DD>" .. html.form[v.type](v) .. "\n") + if (v.descr) and (#v.descr > 0) then io.write("\t\t<P CLASS='descr'>" .. string.gsub(v.descr, "\n", "<BR>") .. "</P>\n") end + if (#v.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(v.errtxt, "\n", "<BR>") .. "</P>\n") end + io.write("\t\t</DD>\n") +end +?> +</DL> </form> |