From e145ec58601aaf593e2ded644dd37c8b2e815310 Mon Sep 17 00:00:00 2001
From: Ted Trask <ttrask01@yahoo.com>
Date: Fri, 30 Jul 2010 13:58:42 +0000
Subject: Display postgres error status

---
 weblog-status-html.lsp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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

diff --git a/weblog-status-html.lsp b/weblog-status-html.lsp
index e2a9c47..1c0d2a8 100644
--- a/weblog-status-html.lsp
+++ b/weblog-status-html.lsp
@@ -15,7 +15,11 @@ end %>
 
 <DT>Database status</DT><DD>
 <% if status then %>
-<%= status.value.status.value %>
+<% if status.value.status.errtxt then
+	print(status.value.status.errtxt)
+else
+	print(status.value.status.value)
+end %>
 <% else %>
 Unknown
 <% end %>
-- 
cgit v1.2.3