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-storage-html.lsp | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'health-storage-html.lsp')

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