From ab9e94b01060564436b9ba4eef0a2ab1465e7b83 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Thu, 5 Jun 2008 14:06:22 +0000
Subject: Updated lbu to use new cfe model and components

git-svn-id: svn://svn.alpinelinux.org/acf/alpine-conf/trunk@1197 ab2d0c66-481e-0410-8bed-d214d4d58bed
---
 lbu-status-html.lsp | 38 ++++++++++++++++++--------------------
 1 file changed, 18 insertions(+), 20 deletions(-)

(limited to 'lbu-status-html.lsp')

diff --git a/lbu-status-html.lsp b/lbu-status-html.lsp
index eb1997b..afe0164 100644
--- a/lbu-status-html.lsp
+++ b/lbu-status-html.lsp
@@ -1,33 +1,31 @@
-<? local form = ... 
+<? local view, viewlibrary, pageinfo, session = ... 
 require("viewfunctions")
 ?>
 <?
 --[[ DEBUG INFORMATION
 io.write("<H1>DEBUGGING</H1><span style='color:red'><H2>DEBUG INFO: CFE</H2>")
-io.write(html.cfe_unpack(form))
+io.write(html.cfe_unpack(view))
 io.write("</span>")
 --]]
 ?>
 
-<H1>SYSTEM INFO</H1>
-<DL>
-<? 
-local myform = form.status 
-local tags = { "status", "version", }
-displayinfo(myform,tags,"viewonly")
-?>
-</DL>
-
-<H2>PROGRAM SPECIFIC OPTIONS/INFORMATION</H2>
-<DL>
-<? 
-local tags = { "LBU_MEDIA","ENCRYPTION", }
-displayinfo(myform,tags,"viewonly")
-?>
-</DL>
+<? if viewlibrary and viewlibrary.dispatch_component then
+	viewlibrary.dispatch_component("basicstatus")
+	if session.permissions.lbu.commit then
+		viewlibrary.dispatch_component("commit")
+	end
+end ?>
 
-<H2>CHANGES SINCE LAST COMMIT</H2>
+<H1>Changes Since Last Commit</H1>
 <DL>
 	<dt>Files changed since last commit</dt>
-		<dd><pre><? for i = 1, table.maxn(form.lbustatus) do io.write(form.lbustatus[i]["status"] .. "\t" .. form.lbustatus[i]["name"] .. "\n") end ?><? if (#form.lbustatus == 0) then io.write("None") end ?></pre></DD>
+	<dd><pre><? 
+		if (#view.value == 0) then
+			io.write("None")
+		else
+			for i,file in pairs(view.value) do
+				io.write(file.status .. "\t" .. file.name .. "\n")
+			end
+		end
+	?></pre></DD>
 </DL>
-- 
cgit v1.2.3