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

Thu, 23 Nov 2017 07:46:01 -0800 

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

New commits:
commit 008673c23db0c812eb0b48a1c29ab88b48aaa867
Author: Jean-Pierre Ledure <[email protected]>
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, 
&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
_______________________________________________
Libreoffice-commits mailing list
[email protected]
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits

Reply via email to