<% local form, viewtable, page_info = ... %> <% require("htmlviewfunctions") %>

<%= html.html_escape(form.label) %>

<% htmlviewfunctions.displayformstart(form, page_info) -- If editing existing role, disable role if page_info.action ~= "newrole" then form.value.role.readonly = true end htmlviewfunctions.displayformitem(form.value.role, "role") -- copied this code from viewfunctions so we can disable the default boxes local myitem = form.value.permissions myitem.name = "permissions" io.write("" .. html.html_escape(myitem.label) .. "\n") io.write("

") -- FIXME multiple select doesn't work in haserl, so use series of checkboxes myitem.class = nil local tempname = myitem.name local tempval = myitem.value or {} local reversedefault = {} for x,val in ipairs(myitem.default or {}) do reversedefault[val] = x end local reverseval = {} for x,val in ipairs(tempval) do reverseval[val] = x end local reverseopt = {} for x,val in ipairs(myitem.option) do reverseopt[val] = x myitem.value = val myitem.checked = reverseval[val] if reversedefault[val] then myitem.disabled = true else myitem.disabled = nil end myitem.name = tempname .. "." .. x io.write(html.form.checkbox(myitem) .. html.html_escape(val) .. "
\n") end -- Check for values not in options if myitem.errtxt then myitem.class = "error" io.write('

\n') end for x,val in ipairs(tempval) do if not reverseopt[val] then myitem.value = val myitem.checked = true io.write(html.form.checkbox(myitem) .. html.html_escape(val) .. "
\n") end end if myitem.errtxt then io.write('

\n') end myitem.name = tempname myitem.value = tempval if myitem.descr then io.write('

' .. string.gsub(html.html_escape(myitem.descr), "\n", "
") .. "

\n") end if myitem.errtxt then io.write('

' .. string.gsub(html.html_escape(myitem.errtxt), "\n", "
") .. "

\n") end io.write("

\n") htmlviewfunctions.displayformend(form) %>