ODFstudio/odfstudio
2
0
Fork 0
Code Issues Packages Activity

Access2Base - FIX OutputStringToHtml

Browse Source 
Remove useless ConvertToUrl function
This commit is contained in:
Jean-Pierre Ledure
2017-11-23 16:42:40 +01:00
parent 9d06ffadbe
commit 008673c23d
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
wizards/source/access2base/Database.xba
+1 -1
View File
@@ -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