summaryrefslogtreecommitdiffstats
path: root/lbu-status-html.lsp
diff options
context:
space:
mode:
Diffstat (limited to 'lbu-status-html.lsp')
-rw-r--r--lbu-status-html.lsp38
1 files changed, 18 insertions, 20 deletions
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>