summaryrefslogtreecommitdiffstats
path: root/lbu-commit-html.lsp
blob: 3ea0815387517de89e1c4108b999e8307cfec91b (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
<?
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>

<? 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 ?>
<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 : ?>