From b2efb6341998ef81d801adc99252a6239698bd4b Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Wed, 13 Feb 2008 15:39:31 +0000
Subject: Changed Makefiles. Modified the view-file so it looks the same way
 other view-files looks.

git-svn-id: svn://svn.alpinelinux.org/acf/core/trunk@712 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 app/acf-util/logon-html.lsp  | 27 +++++++++++++++++----------
 app/acf-util/logon-model.lua |  6 +++---
 2 files changed, 20 insertions(+), 13 deletions(-)

(limited to 'app/acf-util')

diff --git a/app/acf-util/logon-html.lsp b/app/acf-util/logon-html.lsp
index a1d3f33..9a930a2 100644
--- a/app/acf-util/logon-html.lsp
+++ b/app/acf-util/logon-html.lsp
@@ -1,17 +1,24 @@
 <? local form = ... ?>
 <h1>Logon</h1>
+<? --[[ ?>
 <?= html.cfe_unpack(form) ?>
+<? --]] ?>
 
 <form action="<?= form.logon.option.script  .. form.logon.option.prefix ..
 		form.logon.option.controller .. "/" .. form.logon.option.action ?>" method="POST">
-<? local myform = form.logon.value 
- for k,v in pairs(myform) do ?>
-	<DT><?= v.name ?></DT>
-	<? if v.type == "submit" then ?>
-		<DD><input class="submit" type="submit" name="<?= v.name ?>" value="Logon"></DD>
-	<? else ?>
-		<DD><input class="text" type="text" name="<?= v.name ?>">
-		<font color=red><?= v.errtxt ?></font></DD>
-	<? end ?>
-<? end ?>
+<DL>
+<?
+local myform = form.logon.value 
+for k,v in pairs(myform) do
+	io.write("\t<DT")
+	if (#v.errtxt > 0) then io.write(" class='error'") end
+		io.write(">" .. v.label .. "</DT>\n")
+
+			io.write("\t\t<DD>" .. html.form[v.type](v) .. "\n")
+		if (v.descr) and (#v.descr > 0) then io.write("\t\t<P CLASS='descr'>" .. string.gsub(v.descr, "\n", "<BR>") .. "</P>\n") end
+		if (#v.errtxt > 0) then io.write("\t\t<P CLASS='error'>" .. string.gsub(v.errtxt, "\n", "<BR>") .. "</P>\n") end
+		io.write("\t\t</DD>\n")
+end 
+?>
+</DL>
 </form>
diff --git a/app/acf-util/logon-model.lua b/app/acf-util/logon-model.lua
index 3f5a149..f6beb59 100644
--- a/app/acf-util/logon-model.lua
+++ b/app/acf-util/logon-model.lua
@@ -20,9 +20,9 @@ else
 end
 
 logon = function (self, id_user, password_user,sessdata )
-local userid=cfe({ name="userid",type="text" })
-local password=cfe({ name="password" ,type="password"})
-local logon=cfe({ name="Logon", type="submit"})
+local userid=cfe({ name="userid",label="User id", type="text" })
+local password=cfe({ name="password" ,label="Password", type="passwd"})
+local logon=cfe({ name="Logon", label="Logon", value="Logon", type="submit"})
 local s = ""
 
 local csess = session.check_session(conf.sessiondir, sessdata)
-- 
cgit v1.2.3