Small modifications on the view-files

git-svn-id: svn://svn.alpinelinux.org/acf/lbu/trunk@459 ab2d0c66-481e-0410-8bed-d214d4d58bed

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