summaryrefslogtreecommitdiffstats
path: root/lbu-read-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'lbu-read-html.lsp')
-rw-r--r--lbu-read-html.lsp46
1 files changed, 23 insertions, 23 deletions
diff --git a/lbu-read-html.lsp b/lbu-read-html.lsp
index 0ea1ec8..e44d97a 100644
--- a/lbu-read-html.lsp
+++ b/lbu-read-html.lsp
@@ -1,27 +1,27 @@
<? local view = ... ?>
-<h1>Edit</h1>
+<h1>LBU</h1>
-<? --Status Block
- for i,item in ipairs(view.note or {}) do
- ?><p class='error'><?= item.content ?></p><?
- end
-?>
+<h2>Settings</h2>
+<? 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>
+<? for i,item in ipairs(view.list) do ?>
+ <DT><?= item.descr or '' ?></DT>
+ <DD><?= html.link{
+ value = view.script .. view.prefix .. view.controller .. "/"
+ .. view.action .. "?id=" .. tostring(item.id),
+ label=item.name
+ } ?>
+ </DD>
+<? end ?>
+
+<h2>Functions</h2>
+ <DT>Commit changes</DT>
+ <DD><?= html.link{
+ value = view.script .. view.prefix .. view.controller .. "/commit",
+ label="commit" } ?>
+ </DD>
+
+<? -- vim: set filetype=lua : ?>