summaryrefslogtreecommitdiffstats
path: root/lbu-read-html.lsp
blob: 0ea1ec829e3737cacabef31c4a989accd2896155 (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
<? local view = ... ?>

<h1>Edit</h1>

<? --Status Block
    for i,item in ipairs(view.note or {}) do
        ?><p class='error'><?= item.content ?></p><?
    end
?>

<table border=0>
<? local sct=""
for i,item in ipairs(view.list) do
    if item.section ~= sct then
        ?><tr><td colspan='3'><h2><?= item.section ?></td></tr><?
        sct = item.section
    end
    ?><tr><td><?= item.status or '' ?><?
    ?><td><?= html.link{
        value = view.script .. view.prefix .. view.controller .. "/"
        .. view.action .. "?id=" .. tostring(item.id),
        label=item.name
    }
    ?></td><td><?= item.descr
    ?></td></tr><? 
end -- vim: set filetype=lua : ?>
</table>