From 9f1fde7139cb5054a3468984624bbe3d04a5b0eb Mon Sep 17 00:00:00 2001
From: Natanael Copa <natanael.copa@gmail.com>
Date: Fri, 27 Jul 2007 07:36:59 +0000
Subject: new style of acf modules

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-baselayout/trunk@216 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 interfaces-update-html.lsp | 36 ++++++++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 interfaces-update-html.lsp

(limited to 'interfaces-update-html.lsp')

diff --git a/interfaces-update-html.lsp b/interfaces-update-html.lsp
new file mode 100644
index 0000000..ef53642
--- /dev/null
+++ b/interfaces-update-html.lsp
@@ -0,0 +1,36 @@
+<? local form = ... ?>
+<h1>Update Interface <?= form.value.name.value ?></h1>
+
+<form action="<?= form.option.script .. "/" .. form.option.prefix ..
+		form.option.controller .. "/" .. form.option.action ..
+		form.option.extra ?>" method="POST">
+<table>
+
+<? local myform = form.value 
+
+-- We redefine the list of tags from the model (iface_tags) because
+-- the VIEW can choose the order to display the data. The Controller
+-- does not care what order the data is presented.  
+
+-- In this case, we don't show "name" - since its already known
+local tags = { "comment", "method", "address", "netmask", "gateway",
+		"hostname", "provider", "pre-up", "up", "down", "post-down", "cmd" }
+
+for i,v in pairs(tags) do 
+	local val = myform[v] ?>
+<tr><td><? if (val.label) then io.write(val.label) else io.write (v) end ?></td><td>
+	<? if val.name == "" then
+		val.name = v
+		end
+
+	   if val.type == "longtext" then
+		val.cols = 60
+		val.rows = 3
+	   end
+
+	?>
+	<?= html.form[val.type](val) ?>
+</td></tr>
+<? end ?>
+</table>
+</form>
-- 
cgit v1.2.3