From dc53423183a0c459284ebd139022b707f01af006 Mon Sep 17 00:00:00 2001
From: Natanael Copa <natanael.copa@gmail.com>
Date: Fri, 27 Jul 2007 12:53:38 +0000
Subject: moved core files to new dir structure

git-svn-id: svn://svn.alpinelinux.org/acf/core/trunk@219 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 app/acf-util/logon-html.lsp | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 app/acf-util/logon-html.lsp

(limited to 'app/acf-util/logon-html.lsp')

diff --git a/app/acf-util/logon-html.lsp b/app/acf-util/logon-html.lsp
new file mode 100644
index 0000000..cdac2bf
--- /dev/null
+++ b/app/acf-util/logon-html.lsp
@@ -0,0 +1,19 @@
+<? local form = ... ?>
+<h1>Logon</h1>
+
+<form action="<?= form.option.script  .. form.option.prefix ..
+		form.option.controller .. "/" .. form.option.action ?>" method="POST">
+<table>
+<? local myform = form.value 
+ for k,v in pairs(myform) do ?>
+<tr><td><?= v.name ?></td><td>
+<? if v.type == "submit" then ?>
+	<input type="submit" name="<?= v.name ?>" value="Logon">
+<? else ?>
+	<input type="text" name="<?= v.name ?>">
+	<font color=red><?= v.errtxt ?></font>
+<? end ?>
+</td></tr>
+<? end ?>
+</table>
+</form>
-- 
cgit v1.2.3