summaryrefslogtreecommitdiffstats
path: root/weblog-createsource-html.lsp
diff options
context:
space:
mode:
authorTed Trask <ttrask01@yahoo.com>2011-08-18 15:18:15 +0000
committerTed Trask <ttrask01@yahoo.com>2011-08-18 15:18:15 +0000
commita12257762adb07cc1f708baed0724921e6dbbf20 (patch)
tree34ac7400beb610ed0e3a318531030deddb4c81d5 /weblog-createsource-html.lsp
parent28804449df1f28067b9eba8475452b5c97b2a1ac (diff)
downloadacf-weblog-a12257762adb07cc1f708baed0724921e6dbbf20.tar.bz2
acf-weblog-a12257762adb07cc1f708baed0724921e6dbbf20.tar.xz
Started cleanup, not complete
Diffstat (limited to 'weblog-createsource-html.lsp')
-rw-r--r--[l---------]weblog-createsource-html.lsp15
1 files changed, 14 insertions, 1 deletions
diff --git a/weblog-createsource-html.lsp b/weblog-createsource-html.lsp
index d076f78..c15e30e 120000..100644
--- a/weblog-createsource-html.lsp
+++ b/weblog-createsource-html.lsp
@@ -1 +1,14 @@
-weblog-editsource-html.lsp \ No newline at end of file
+<% local form, viewlibrary, page_info = ...
+require("viewfunctions")
+%>
+
+<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"}
+ displayform(form, order)
+%>