summaryrefslogtreecommitdiffstats
path: root/weblog-editsource-html.lsp
blob: 90fa784504d44766784903f20d27933576102e59 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
<% local form, viewlibrary, page_info = ... 
require("htmlviewfunctions")
html = require("acf.html")
%>

<H1><%= html.html_escape(form.label) %></H1>
<%
	form.action = page_info.script .. page_info.prefix .. page_info.controller .. "/" .. page_info.action
	form.value.passwd.type = "password"
	if page_info.action == "editsource" then
		form.value.sourcename.readonly = true
	end
	local order = {"sourcename", "enabled", "source", "method", "userid", "passwd"}
	htmlviewfunctions.displayform(form, order)
%>