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-editrole-html.lsp | 2 --
 app/acf-util/roles-html.lsp          | 6 +++++-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/app/acf-util/roles-editrole-html.lsp b/app/acf-util/roles-editrole-html.lsp
index f243ecb..cec9af0 100644
--- a/app/acf-util/roles-editrole-html.lsp
+++ b/app/acf-util/roles-editrole-html.lsp
@@ -12,7 +12,6 @@
 	if page_info.action ~= "newrole" then
 		form.value.role.readonly = true
 	end
-	io.write("<DL>\n")
 	displayformitem(form.value.role, "role")
 
 	-- copied this code from viewfunctions so we can disable the default boxes
@@ -68,6 +67,5 @@
 	if myitem.errtxt then io.write('<P CLASS="error">' .. string.gsub(html.html_escape(myitem.errtxt), "\n", "<BR>") .. "</P>\n") end
 	io.write("</DD>\n")
 
-	io.write("</DL>\n")
 	displayformend(form)
 %>
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