From 1c0053ed4c338bc2b1447785c8b616be4249e980 Mon Sep 17 00:00:00 2001
From: Mika Havela <mika.havela@gmail.com>
Date: Wed, 7 Oct 2009 10:28:58 +0200
Subject: Graphical fixes - Fixing <DL> trouble that causes other skins to look
 strange.

---
 app/acf-util/roles-html.lsp | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'app/acf-util/roles-html.lsp')

diff --git a/app/acf-util/roles-html.lsp b/app/acf-util/roles-html.lsp
index 41ebcc3..090421f 100644
--- a/app/acf-util/roles-html.lsp
+++ b/app/acf-util/roles-html.lsp
@@ -14,9 +14,11 @@
 
 <% if view.value.roles then %>
 	<H2><%= html.html_escape(view.value.userid.value) %> is valid in these roles</H2>
+	<DL>
 	<% for a,b in pairs(view.value.roles.value) do
-		print("<li>",html.html_escape(b),"</li>")
+		print("<dt>",html.html_escape(b),"</dt><dd>&nbsp;</dd>")
 	end %>
+	</DL>
 <% end %>
 <% --]] %>
 
@@ -27,6 +29,7 @@
 	<% elseif view.value.role then %>
 		<H2><%= html.html_escape(view.value.role.value) %>'s full permissions are</H2>
 	<% end %>
+	<DL>
 	<% local controllers = {}
 	   -- It's nice to have it in alphabetical order
 	   for cont in pairs(view.value.permissions.value) do
@@ -50,5 +53,6 @@
 	    end
 	    io.write("</TABLE>")
 	    %>
+	</DL>
 <% end %>
 <% --]] %>
-- 
cgit v1.2.3