From f2e525eb2707a98a0d0a1bdeaf054c3981ce5f6b Mon Sep 17 00:00:00 2001 From: Jean-Pierre Ledure Date: Sat, 5 Dec 2015 12:33:52 +0100 Subject: Access2Base - OutputTo HTML Add in the list of acceptable html tags Change-Id: I23c57ad1ef889fd511111f6d969feaafb9d0f5b8 --- wizards/source/access2base/Database.xba | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'wizards') diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 15d9d40e49a3..e28159e43027 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1187,6 +1187,7 @@ Dim i As Integer, l As Long "&quot;", "&amp;", "&apos;", "&lt;", "&gt;", "&nbsp;" _ , "<pre>", "</pre>", "<br>" _ , "<a href=""", "<a id=""", "</a>", "<img src=""" _ + , "<span style=""", "</span>" _ , "<b>", "</b>", "<u>", "</u>", "<i>", "</i>" _ ) @@ -1212,7 +1213,7 @@ Dim i As Integer, l As Long ' Process hyperlink patterns and keep others If Len(sPattern) > 0 Then Select Case LCase(sPattern) - Case "<a href=""", "<a id=""", "<img src=""" + Case "<a href=""", "<a id=""", "<img src=""", "<span style=""" ' Up to next quote, url-encode lNextQuote = 0 lUrl = lPattern + Len(sPattern) -- cgit