summaryrefslogtreecommitdiffstats
path: root/weblog-status-html.lsp
diff options
context:
space:
mode:
authorMika Havela <mika.havela@gmail.com>2009-10-07 16:42:53 +0200
committerMika Havela <mika.havela@gmail.com>2009-10-07 16:42:53 +0200
commit878989065d9e92ab74ad310eca886323178d44f0 (patch)
treedb928a888c6fee3b4bc9d00073e59758cc0f2e0b /weblog-status-html.lsp
parentf4ed3e242468632ee5f6884752601223536e4900 (diff)
downloadacf-weblog-878989065d9e92ab74ad310eca886323178d44f0.tar.bz2
acf-weblog-878989065d9e92ab74ad310eca886323178d44f0.tar.xz
Graphical fix. Modifying <DL> to fix skin issues.\n Removing hardcoded backgroundcolor from table and using class=header instead to have the skins do the choosing of colors.
Diffstat (limited to 'weblog-status-html.lsp')
-rw-r--r--weblog-status-html.lsp19
1 files changed, 13 insertions, 6 deletions
diff --git a/weblog-status-html.lsp b/weblog-status-html.lsp
index d0784ba..fae98c0 100644
--- a/weblog-status-html.lsp
+++ b/weblog-status-html.lsp
@@ -5,23 +5,30 @@ require("viewfunctions")
<% displaycommandresults({"createdatabase"}, session, true) %>
<H1>Weblog Database Status</H1>
+<DL>
<% local status
if viewlibrary and viewlibrary.dispatch_component then
if session.permissions.postgresql and session.permissions.postgresql.status then
status = viewlibrary.dispatch_component("postgresql/postgresql/status", nil, true)
end
-end
-if status then %>
-<p>Database is <%= status.value.status.value %>
+end %>
+
+<DT>Database status</DT><DD>
+<% if status then %>
+<%= status.value.status.value %>
<% else %>
-<p>Database status unknown
+unknown
<% end %>
+</DD>
+<DT>Weblog Database</DT><DD>
<% if data.value then %>
-<p>Weblog Database present
+present
<% else %>
-<p>Weblog Database missing
+missing
<% if viewlibrary and viewlibrary.dispatch_component then
viewlibrary.dispatch_component("createdatabase")
end %>
<% end %>
+</DD>
+</DL>