summaryrefslogtreecommitdiffstats
path: root/app/acf-util/password-edit-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'app/acf-util/password-edit-html.lsp')
-rwxr-xr-xapp/acf-util/password-edit-html.lsp72
1 files changed, 0 insertions, 72 deletions
diff --git a/app/acf-util/password-edit-html.lsp b/app/acf-util/password-edit-html.lsp
deleted file mode 100755
index 8b295b5..0000000
--- a/app/acf-util/password-edit-html.lsp
+++ /dev/null
@@ -1,72 +0,0 @@
-<? local form = ... ?>
-<?
---[[ DEBUG INFORMATION
-io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
-io.write(html.cfe_unpack(form))
-io.write("</span>")
---]]
-?>
-<?
-function displayinfo(myform,tags,viewonly)
- io.write("\n<DL>")
- for k,v in pairs(tags) do
- if (myform[v]) and (myform[v]["value"]) then
- local val = myform[v]
- io.write("\n\t<DT")
- if (#val.errtxt > 0) then
- val.class = "error"
- io.write(" class='error'")
- end
- io.write(">" .. val.label .. "</DT>\n")
- if (viewonly) then
- io.write("\t\t<DD>" .. val.value .. "\n")
- else
- io.write("\t\t<DD>" .. html.form[val.type](val) .. "\n")
- end
- if (#val.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(val.errtxt, "\n", "<BR>") .. "</P>\n") end
- io.write("\t\t</DD>\n")
- end
- end
- io.write("</DL>")
-end
-?>
-
-<H1>CONFIG</H1>
-<H2>Settings</H2>
-<?
-local myform = form.config
-local tags = { "userid", }
-displayinfo(myform,tags,"viewonly")
-local tags = { "descr", }
-displayinfo(myform,tags)
-?>
-
-<?
--- The following code is a bit special because I want to display checkboxes for available roles.
-local myform = form.config.roles
-io.write("\n<DL>")
-io.write("\n\t<DT")
-if (#myform.errtxt > 0) then
- myform.class = "error"
- io.write(" class='error'")
-end
-io.write(">" .. myform.label .. "</DT>")
-io.write("\n\t\t<DD>")
-for k,v in pairs(myform.option) do
- local checked = ""
- if (form.config.userid.roles[v]) then checked = "checked='yes'" end
- io.write("\n\t\t\t" ..v .. ":<input class='checkbox' type='checkbox' name='roles' value='' " .. checked .. "> ")
-end
-if (#myform.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(myform.errtxt, "\n", "<BR>") .. "</P>\n") end
-io.write("\n\t\t</DD>\n")
-io.write("</DL>")
-?>
-
-<H2>Actions</H2>
-<?
-local myform = form.config
-local tags = { "cmdsave", "cmddelete", }
-displayinfo(myform,tags)
-
-?>
-