summaryrefslogtreecommitdiffstats
path: root/lbu-read-html.lsp
diff options
context:
space:
mode:
authorAlexander Poslavsky <alexander.poslavsky@gmail.com>2007-11-02 13:08:51 +0000
committerAlexander Poslavsky <alexander.poslavsky@gmail.com>2007-11-02 13:08:51 +0000
commit1448b0049d94eb830c2e6ac17a6f1038f76de076 (patch)
treeacc7f5090239bd28da98f0bb8fae2c4d48862365 /lbu-read-html.lsp
downloadacf-alpine-conf-1448b0049d94eb830c2e6ac17a6f1038f76de076.tar.bz2
acf-alpine-conf-1448b0049d94eb830c2e6ac17a6f1038f76de076.tar.xz
lbu acf module work-in-progress
git-svn-id: svn://svn.alpinelinux.org/acf/lbu/trunk@259 ab2d0c66-481e-0410-8bed-d214d4d58bed
Diffstat (limited to 'lbu-read-html.lsp')
-rw-r--r--lbu-read-html.lsp27
1 files changed, 27 insertions, 0 deletions
diff --git a/lbu-read-html.lsp b/lbu-read-html.lsp
new file mode 100644
index 0000000..0ea1ec8
--- /dev/null
+++ b/lbu-read-html.lsp
@@ -0,0 +1,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>