strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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
Show stats Download patch file Download diff file Expand all files Collapse all files

2
wizards/source/access2base/Database.xba
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