From e2f374457a6931b964952eccf05e073707921f5b Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Fri, 28 Dec 2007 09:04:12 +0000
Subject: Some small adjustments

git-svn-id: svn://svn.alpinelinux.org/acf/lbu/trunk@460 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 lbu-commit-html.lsp |  7 +++++--
 lbu-html.lsp        | 42 ++++++++++++++----------------------------
 lbu-read-html.lsp   | 12 +++++-------
 3 files changed, 24 insertions(+), 37 deletions(-)

diff --git a/lbu-commit-html.lsp b/lbu-commit-html.lsp
index 3ea0815..1efc362 100644
--- a/lbu-commit-html.lsp
+++ b/lbu-commit-html.lsp
@@ -13,13 +13,17 @@ end
 ?>
 
 <h1><?= view.title?></h1>
-
+<? if (table.maxn(view.data) > 0) then ?>
+	<h2>List</h2>
+<? end ?>
 <? 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 ?>
+
+<h2>Functions</h2>
 <dt>Save these changes</dt>
 <dd><?= html.form.start {
     method="POST",
@@ -37,4 +41,3 @@ end
 	<pre><?= item.content ?></pre>
 <? end ?>
 <? -- vim: set filetype=lua : ?>
-
diff --git a/lbu-html.lsp b/lbu-html.lsp
index efb1c38..4ca2cbe 100644
--- a/lbu-html.lsp
+++ b/lbu-html.lsp
@@ -1,13 +1,13 @@
-<?
-local form = ...
-?><h1>Edit <?= form.value.name.value
-?></h1><?= html.form.start{
+<? local form = ... ?>
+<h1>Edit <?= form.value.name.value?></h1>
+
+<?= html.form.start{
     method="POST",
     action= form.option.script .. "/" .. form.option.prefix
         .. form.option.controller .. "/" .. form.option.action ..
-        form.option.extra
-}
-?><table><?
+        form.option.extra } ?>
+
+<?
 local myform = form.value 
 local tags = {
     { "content", "longtext" },
@@ -16,26 +16,12 @@ local tags = {
 }
 
 for i,v in pairs(tags) do
-    local name = v[1]
-    local val = myform[name]
-    val.type = v[2]
-    ?><tr><td><?
---[[
-    if val.label then
-        io.write(val.label)
-    elseif val.type ~= "hidden" then
-        io.write(name)
-    end
---]]
-    ?></td><td><?
-    if val.name == "" then val.name = name end
-    if val.type == "longtext" then
-       val.cols = 80
-       val.rows = 24
-    end
-    ?><?= html.form[val.type](val)
-    ?></td></tr><?
-end
-?></table><?= html.form.stop()
+	local name = v[1]
+	local val = myform[name]
+	val.type = v[2]
+	if val.name == "" then val.name = name end
 ?>
+<?= html.form[val.type](val)?>
+<? end ?>
+<?= html.form.stop() ?>
 
diff --git a/lbu-read-html.lsp b/lbu-read-html.lsp
index e44d97a..bfd986a 100644
--- a/lbu-read-html.lsp
+++ b/lbu-read-html.lsp
@@ -13,15 +13,13 @@
 		value = view.script .. view.prefix .. view.controller .. "/"
 		.. view.action .. "?id=" .. tostring(item.id),
 		label=item.name
-		} ?>
-	</DD>
+		} ?></DD>
 <? end ?>
 
 <h2>Functions</h2>
-	<DT>Commit changes</DT>
-	<DD><?= html.link{
-		value = view.script .. view.prefix .. view.controller .. "/commit",
-		label="commit" } ?>
-	</DD>
+<DT>Commit changes</DT>
+<DD><?= html.link{
+	value = view.script .. view.prefix .. view.controller .. "/commit",
+	label="commit" } ?></DD>
 
 <? -- vim: set filetype=lua : ?>
-- 
cgit v1.2.3