local view, viewlibrary = ...
require("viewfunctions")
?>
--[[ DEBUG INFORMATION
io.write("
DEBUGGING
DEBUG INFO: CFE
")
io.write(html.cfe_unpack(view))
io.write("")
--]]
?>
if viewlibrary and viewlibrary.dispatch_component then
viewlibrary.dispatch_component("basicstatus")
end ?>
PROGRAM SPECIFIC OPTIONS/INFORMATION
Locations
if (view) and (view['%']) then
local val = view['%'] ?>
- >= val.label ?>
-
local currentloc = ""
for i,loc in ipairs(val) do
if currentloc ~= loc[1] then ?>
= loc[1] ?>
end
currentloc = loc[1] ?>
= loc[2] ?>
if (loc.errtxt) then ?>= string.gsub(loc.errtxt, "\n", "
") ?>
end ?>
end ?>
end ?>
local function doListIndents(next, indent)
local newentry = {}
for mt in string.gmatch(next, "([^.]+)") do
table.insert(newentry, mt)
end
local revnewentry = {}
for j=#newentry,1,-1 do
table.insert(revnewentry, newentry[j])
end
local i=1
while indent[i] and revnewentry[i] == indent[i] do
i=i+1
end
local ending = #indent-(i-1)
local starting = #newentry-(i-1)
for j=1,ending do
io.write("\n")
end
for j=1,starting do
io.write("- ")
io.write(table.concat(newentry, ".", #newentry-(i+j-2), #newentry))
io.write("\n")
end
return revnewentry
end
?>
Records
local tags = {".", "&", "=", "+", "@", "'", "^", "C", "Z", ":" }
for i,entrytype in ipairs(tags) do
local myview = view[entrytype]
if (myview) then ?>
- = myview.label ?>
local indent = {}
for j,entry in ipairs(myview) do
indent = doListIndents(entry[1], indent) ?>
end
doListIndents("", indent) ?>
end
end ?>