From 008673c23db0c812eb0b48a1c29ab88b48aaa867 Mon Sep 17 00:00:00 2001
From: Jean-Pierre Ledure <jp@ledure.be>
Date: Thu, 23 Nov 2017 16:42:40 +0100
Subject: Access2Base - FIX OutputStringToHtml

Remove useless ConvertToUrl function
---
 wizards/source/access2base/Database.xba | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'wizards')

diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba
index e3dba90c9ac6..30b412fb9cfa 100644
--- a/wizards/source/access2base/Database.xba
+++ b/wizards/source/access2base/Database.xba
@@ -1574,7 +1574,7 @@ Dim i As Integer, l As Long
 					lNextQuote = InStr(lUrl, psString, &quot;&quot;&quot;&quot;, 1)
 					If lNextQuote = 0 Then lNextQuote = Len(psString)			&apos;	Should not happen but, if quoted string not closed ...
 					sUrl = Mid(psString, lUrl, lNextQuote - lUrl)
-					sOutput = sOutput &amp; sPattern &amp; Iif(sPattern = &quot;&lt;a id=&quot;&quot;&quot;, sUrl, ConvertToUrl(sUrl)) &amp; &quot;&quot;&quot;&quot;
+					sOutput = sOutput &amp; sPattern &amp; sUrl &amp; &quot;&quot;&quot;&quot;
 					lCurrentChar = lNextQuote + 1
 					bQuote = False
 					bTagEnd = False
-- 
cgit