From b351af35c3d25ef633175fdb92fcba2d30fdb63f Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Wed, 7 Oct 2009 11:48:23 +0200
Subject: Graphical fix. Adding <DL> to the views to fix skin issues.

---
 health-modules-html.lsp      | 2 ++
 health-network-html.lsp      | 4 ++++
 health-networkstats-html.lsp | 2 +-
 health-proc-html.lsp         | 4 ++++
 health-storage-html.lsp      | 8 ++++++++
 health-system-html.lsp       | 9 ++++++++-
 6 files changed, 27 insertions(+), 2 deletions(-)

diff --git a/health-modules-html.lsp b/health-modules-html.lsp
index 5ffcf97..0cd760b 100644
--- a/health-modules-html.lsp
+++ b/health-modules-html.lsp
@@ -3,4 +3,6 @@
 <h1>Modules</h1>
 
 <h2>Installed modules</h2>
+<DL>
 <pre><%= html.html_escape(view.value.list.value) %></pre>
+</DL>
diff --git a/health-network-html.lsp b/health-network-html.lsp
index 5d97a9e..5f9463d 100644
--- a/health-network-html.lsp
+++ b/health-network-html.lsp
@@ -3,7 +3,11 @@
 <h1>Network</h1>
 
 <h2>Interface status</h2>
+<DL>
 <pre><%= html.html_escape(view.value.interfaces.value) %></pre>
+</DL>
 
 <h2>Routes</h2>
+<DL>
 <pre><%= html.html_escape(view.value.routes.value) %></pre>
+</DL>
diff --git a/health-networkstats-html.lsp b/health-networkstats-html.lsp
index 888a73e..de2caf7 100644
--- a/health-networkstats-html.lsp
+++ b/health-networkstats-html.lsp
@@ -126,10 +126,10 @@
 </script>
 
 <H1>Network Statistics</H1>
+<DL>
 Network traffic in bytes/second
 <div id="chart" style="width:680px; height:300px;"></div>
 
-<DL>
 <DT>Display Options</DT>
 <DD><TABLE style="width:auto;">
 <TR><TD><B>Interface</B></TD><TD><B>IP Address</B></TD><TD colspan="2" style="text-align:center;"><B>RX</B></TD><TD colspan="2" style="text-align:center;"><B>TX</B></TD></TR>
diff --git a/health-proc-html.lsp b/health-proc-html.lsp
index 3105a1c..92056f3 100644
--- a/health-proc-html.lsp
+++ b/health-proc-html.lsp
@@ -3,7 +3,11 @@
 <h1>Process information</h1>
 
 <h2>Processor</h2>
+<DL>
 <pre><%= html.html_escape(view.value.processor.value) %></pre>
+</DL>
 
 <h2>Memory</h2>
+<DL>
 <pre><%= html.html_escape(view.value.memory.value) %></pre>
+</DL>
diff --git a/health-storage-html.lsp b/health-storage-html.lsp
index bd2a20a..7e1e78a 100644
--- a/health-storage-html.lsp
+++ b/health-storage-html.lsp
@@ -32,6 +32,7 @@ end %>
 <h1>Storage</h1>
 
 <h2>Floppy capacity</h2>
+<DL>
 <% if (view.value.floppy) then
 for name,floppy in pairs(view.value.floppy.value) do
 	displaydisk(floppy, name)
@@ -39,8 +40,10 @@ end
 else %>
 No Floppy mounted
 <% end %>
+</DL>
 
 <h2>Harddrive capacity</h2>
+<DL>
 <% if (view.value.hd) then 
 for name,hd in pairs(view.value.hd.value) do
 	displaydisk(hd, name)
@@ -48,8 +51,10 @@ end
 else %>
 No Harddrive mounted
 <% end %>
+</DL>
 
 <h2>RAM Disk capacity</h2>
+<DL>
 <% if (view.value.ramdisk) then 
 for name,ramdisk in pairs(view.value.ramdisk.value) do
 	displaydisk(ramdisk, name)
@@ -57,9 +62,12 @@ end
 else %>
 No RAM Disk mounted
 <% end %>
+</DL>
 
 <% if view.value.partitions then %>
 <h2>Disk partitions</h2>
+<DL>
 <pre><%= html.html_escape(view.value.partitions.value) %></pre>
+</DL>
 <% end %>
 
diff --git a/health-system-html.lsp b/health-system-html.lsp
index 9fcea6f..f2e4d6c 100644
--- a/health-system-html.lsp
+++ b/health-system-html.lsp
@@ -3,17 +3,24 @@
 <h1>System</h1>
 
 <h2>Versions and names</h2>
+<DL>
 <pre><%= html.html_escape(view.value.version.value) %></pre>
 <pre><%= html.html_escape(view.value.uname.value) %></pre>
+</DL>
 
 <h2>Uptime</h2>
+<DL>
 <pre><%= html.html_escape(view.value.uptime.value) %></pre>
+</DL>
 
 <h2>Time/TimeZone</h2>
+<DL>
 <pre><%= html.html_escape(view.value.date.value) %></pre>
 <pre><%= html.html_escape(view.value.timezone.value) %></pre>
+</DL>
 
 <h2>Memory</h2>
+<DL>
 <pre><%= html.html_escape(view.value.memory.value) %></pre>
 
 <TABLE STYLE="margin:0px;padding:0px;border:0px">
@@ -26,4 +33,4 @@
 		<TD WIDTH="100px"><B>Total:</B></TD><TD STYLE="background:red;;border:2px solid black;" WIDTH="20px"></TD><TD WIDTH="70px"><B>=Used</B></TD><TD STYLE="background:#0c0;border:2px solid black;" WIDTH="20px"></TD><TD><B>=Free</B></TD>
 	</TR>
 </TABLE>
-
+</DL>
-- 
cgit v1.2.3