diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2017-11-23 16:42:40 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2017-11-23 16:42:40 +0100 |
| commit | 008673c23db0c812eb0b48a1c29ab88b48aaa867 (patch) | |
| tree | 4b6ac384a91dfb988058c36021e32118cc6a65b6 /wizards | |
| parent | 9d06ffadbec8c3b2281f3e04b6c612b86965c146 (diff) | |
Access2Base - FIX OutputStringToHtml
Remove useless ConvertToUrl function
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/access2base/Database.xba | 2 |
1 files changed, 1 insertions, 1 deletions
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 |