summaryrefslogtreecommitdiffstats
path: root/lbu-commit-html.lsp
blob: 1efc362429745c030e9107183a685577f86a44c4 (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
<?
local view = ...

local function packURL(script, prefix, controller, action, extra)
    ret = script .. "/" .. prefix .. controller .. "/" .. action
    sep = '?'
    for k,v in pairs(extra) do
        ret = ret .. sep .. k .. '=' .. v
        sep = '&'
    end
    return ret
end
?>

<h1><?= view.title?></h1>
<? if (table.maxn(view.data) > 0) then ?>
	<h2>List</h2>
<? end ?>
<? for i,item in ipairs(view.note or {}) do ?>
	<p class='error'><?= item.content ?></p>
<? end ?>
<? for i,item in ipairs(view.data) do ?>
	<dt><?= item.name ?></dt><dd><?= item.status ?></dd>
<? end ?>

<h2>Functions</h2>
<dt>Save these changes</dt>
<dd><?= html.form.start {
    method="POST",
    action = packURL(view.script, view.prefix,
        view.controller, view.action, {})
    }?>
<?= html.form.submit { name = view.action, value = view.action }?>
<?= html.form.stop() ?>
</dd>

<? for i,item in ipairs(view.text) do
	if item.label then ?>
		<h2><?= item.label ?></h2>
	<? end ?>
	<pre><?= item.content ?></pre>
<? end ?>
<? -- vim: set filetype=lua : ?>