From aa8b67acd8d0aa38826f4aec24a208f902ca0e4a Mon Sep 17 00:00:00 2001
From: Chris <chris@starforge.co.uk>
Date: Thu, 20 Mar 2014 10:57:26 +0000
Subject: [PATCH] Fix spurious conversion of newlines to li in ul during
 tidying.

---
 Webperl/Block.pm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Webperl/Block.pm b/Webperl/Block.pm
index a200872..5f7faa6 100644
--- a/Webperl/Block.pm
+++ b/Webperl/Block.pm
@@ -404,6 +404,9 @@ sub validate_htmlarea {
     return ("", , $self -> {"template"} -> replace_langvar("BLOCK_VALIDATE_TIDYFAIL", {"***field***" => $settings -> {"nicename"}}))
         if(!$tidied);
 
+    # Tidy will stick in spurious list elements, remove them
+    $tidied =~ s|<li style="list-style: none"></li>\n||g;
+
     # Now we can go ahead and check with the validator to see whether the tidied
     # code is valid xhtml
     my $valid = check_xhtml($tidied);