From 878989065d9e92ab74ad310eca886323178d44f0 Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Wed, 7 Oct 2009 16:42:53 +0200
Subject: 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.

---
 weblog-status-html.lsp | 19 +++++++++++++------
 1 file changed, 13 insertions(+), 6 deletions(-)

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

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>
-- 
cgit v1.2.3