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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
|
--[[
middle level functions for the webconf view templates. Part of
acf
Copyright (C) 2006 N. Angelacos Licensed under terms of GPL2
]]--
module ( ..., package.seeall )
require ("html")
-- This is the main function that walks a table formatted for a template
-- (This is the magic in generic)
function render_table ( element, level)
local level = level or 1
if (type(element) ~= "table" ) then
return nil
end
for k,v in pairs (element) do
if ( v.type ~= nil ) then
if ( v.type == "group" ) then
print ( html.entity ( ( "h" .. tostring(level) ), v.label, v.class, v.id ) )
print ( html.entity ( "p" , v.text, v.class ) )
render_table ( v.value, level + 1 )
elseif ( v.type == "label" ) then
print ( html.entity ( "h" .. level , v.value, v.class, v.id ) )
if ( v.text ~= nil ) then
print ( html.entity ( "p", v.text, v.class ))
end
elseif ( v.type == "html" ) then
print (v.value)
elseif ( v.type == "log" ) then
print("<pre>")
if type(v.lines) == "function" then
for line in v.lines do
print(line)
end
elseif v.lines then
print(v.lines)
end
print("</pre>")
elseif ( v.type == "link" ) then
print (html.link ( v ) )
elseif ( v.type == "form" ) then
print ( html.form.start ( v ) )
print ("<dl>")
render_table ( v.value, level + 1 )
print ("</dl>")
print ( html.form.stop () )
elseif type(html.form[v.type]) ~= "nil" then
if v.type == "hidden" then
v.noitem = true
end
if not v.noitem then
print ( string.format ("<dt>%s</dt><dd>", ( v.label or "" )))
end
print ( html.form[v.type] ( v ) )
if not v.noitem then
print ("</dd>")
end
end
end
end
end
-- This function prints the main menu, with the given prefix/controller "selected"
-- returns the group, category, subcat that is selected
function render_mainmenu ( menu, prefix, controller, action )
-- prefix+controller defines which menu is "selected"
local megroup = nil
local mecat = nil
local mesubcat = nil
local liston = nil
local group = ""
local cat = ""
-- find the current group/cat/subcat
for i=1,table.maxn(menu) do
if (menu[i].prefix == prefix) and ( menu[i].controller == controller ) then
megroup = menu[i].group
mecat = menu[i].cat
if ( menu[i].action == action ) then
mesubcat = menu[i].subcat
elseif ( menu[i].action == "*" ) and ( mesubcat == nil ) then
mesubcat = menu[i].subcat
end
end
end
-- render the mainmenu
local thisgroup = ""
local thiscat = ""
for i=1,table.maxn(menu),1 do
if menu[i].group ~= thisgroup then
thisgroup = menu[i].group
if ( liston ) then io.write ("</ul>") end
print ( html.entity ( "h3", menu[i].group ) )
io.write("<ul>")
liston = true
thicat = nil
end
if menu[i].cat ~= thiscat then
thiscat = menu[i].cat
if (thiscat == mecat ) then
print ( html.entity ("li", html.html_escape(thiscat), nil, "selected"))
else
print (html.link ( { value= ENV.SCRIPT_NAME .. menu[i].uri ,
label = html.entity ("li", html.html_escape(thiscat)) } ) )
end
end
end
io.write ("</ul>")
return megroup, mecat, mesubcat
end
-- This function prints the tabs for the submenu, with the given submenu "selected"
function render_submenu ( menu, group, cat, subcat )
cat = cat or ""
group = group or ""
local this_subcat = nil
local foo = group .. " > " .. cat
if (foo ~= " > " ) then
print ( html.entity ( "h2", html.html_escape( group .. " > " .. cat ) ))
end
-- print (string.format ("%s - %s - %s", group, cat , (subcat or "")))
io.write ("<ul>")
for i=1, table.maxn(menu),1 do
if ( group == menu[i].group ) and ( cat == menu[i].cat ) then
-- If a subcat was not selected, make the first one the default
if ( subcat == nil ) then
subcat = menu[i].subcat
end
if ( menu[i].subcat ~= this_subcat ) then
this_subcat = menu[i].subcat
if ( menu[i].subcat == subcat ) then
print ( html.entity ("li", menu[i].subcat, nil, "selected"))
else
io.write ("<li>")
io.write ( html.link ( { value= ENV.SCRIPT_NAME .. menu[i].uri ,
label =menu[i].subcat } ) )
print ("</li>")
end
end
end
end
io.write ("</ul>")
end
|
