summaryrefslogtreecommitdiffstats
path: root/dansguardian-category-html.lsp
blob: 2f94048868e595ecf6ec5b093195642f817cdcb7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
<% 
require("viewfunctions")
   local form, viewlibrary = ... 
%>

<%
--[[ 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>")
--]]
%>

<% if viewlibrary and viewlibrary.dispatch_component then
	viewlibrary.dispatch_component("status")
end %>

<h1>Modify Categories</h1>

<h2>Category list</h2>
<form action="" method="POST">
<dl>
<%
local myform = form["service"]["config"]["categories"]
for k,v in ipairs( myform ) do
	io.write("<DT ")
	if not (v.active) then io.write("CLASS='error'") end
	io.write("><img src='/static/tango/16x16/categories/applications-system.png' height='16' width='16'> "..v.name.."</DT>\n")
	io.write("<DD><TABLE>")
	if (v.option) then
		for k1,v1 in pairs(v.option) do
			io.write("<TR><TD STYLE='font-weight:bold;border:none;' WIDTH='180px' ")
			if not (v1.active) then io.write("CLASS='error'") end
			io.write(">".. v1.name .. "</TD><TD STYLE='border:none;'>[ <A HREF='editcategories?category=".. v.name .. "&object=".. v1.name .. "'>Edit</A> ]</TD></TD>" )
--			for k2,v2 in pairs(v1) do
				--io.write(html.form(v1.type(v1)))
--				io.write("<TD STYLE='border:none;'>")
--				io.write("[ " ..html.link(v2) .. " ] ")
--				io.write(tostring(v2))
--				io.write("</TD>")
--			end
			io.write("</TR>\n")
		end
			io.write("<TR><TD STYLE='font-weight:bold;border:none;' WIDTH='180px'><INPUT TYPE='text' CLASS='text'></TD><TD STYLE='border:none;'><INPUT TYPE='submit' CLASS='submit' VALUE='Create' disabled></TD></TD></TR>\n" )
	end
	io.write("</TABLE></DD>")
--io.write( "<BR><input type=\"checkbox\" name=\"cats\" value=\"" .. v .. "\"> " .. v .. "\n" )
end
%>
</dl>
</form>


<% if viewlibrary and viewlibrary.dispatch_component then
	viewlibrary.dispatch_component("startstop")
end %>