[Libreoffice-commits] core.git: wizards/source

[Jean-Pierre Ledure]

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

New commits:
commit 008673c23db0c812eb0b48a1c29ab88b48aaa867
Author: Jean-Pierre Ledure <jp at ledure.be>
Date:   Thu Nov 23 16:42:40 2017 +0100

    Access2Base - FIX OutputStringToHtml
    
    Remove useless ConvertToUrl function

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, """", 1)
 					If lNextQuote = 0 Then lNextQuote = Len(psString)			'	Should not happen but, if quoted string not closed ...
 					sUrl = Mid(psString, lUrl, lNextQuote - lUrl)
-					sOutput = sOutput & sPattern & Iif(sPattern = "<a id=""", sUrl, ConvertToUrl(sUrl)) & """"
+					sOutput = sOutput & sPattern & sUrl & """"
 					lCurrentChar = lNextQuote + 1
 					bQuote = False
 					bTagEnd = False