wizards/source/access2base/Application.xba | 2 +- wizards/source/access2base/Database.xba | 2 +- wizards/source/access2base/Event.xba | 2 +- wizards/source/access2base/Recordset.xba | 1 + wizards/source/access2base/Trace.xba | 2 +- wizards/source/access2base/Utils.xba | 2 +- 6 files changed, 6 insertions(+), 5 deletions(-)
New commits: commit 72a2f615c37aada0d5ab8791f1fa9a71772b50f6 Author: Jean-Pierre Ledure <[email protected]> Date: Sat Mar 25 09:29:02 2017 +0100 Access2Base Missing parentheses - Bug #106710 Due to more severe Basic interpreter on final parentheses missing parentheses were revealed Change-Id: I779b5e3d299fb9c56ecd807d28a780cc3ab9a1b5 diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba index 46cb24afac2d..a972b3ca6bab 100644 --- a/wizards/source/access2base/Application.xba +++ b/wizards/source/access2base/Application.xba @@ -1069,7 +1069,7 @@ Dim sOutput As String, l As Long, lLength As Long If Len(pvString) > 0 Then For l = 1 To Len(pvString) If lLength > 0 And Len(sOutput) > lLength Then Exit For - sOutput = sOutput & Utils._UTF8Encode(Mid(pvString, l, 1) + sOutput = sOutput & Utils._UTF8Encode(Mid(pvString, l, 1)) Next l End If diff --git a/wizards/source/access2base/Database.xba b/wizards/source/access2base/Database.xba index 20129c17357d..dd5be2877283 100644 --- a/wizards/source/access2base/Database.xba +++ b/wizards/source/access2base/Database.xba @@ -1446,7 +1446,7 @@ Dim i As Integer, l As Long lNextPattern = InStr(lCurrentChar, psString, vPatterns(i), 1) ' Text (not case-sensitive) string comparison If lNextPattern > 0 And lNextPattern < lPattern Then lPattern = lNextPattern - sPattern = Mid(psString, lPattern, Len(vPatterns(i)) + sPattern = Mid(psString, lPattern, Len(vPatterns(i))) End If Next i ' Up to the next pattern or to the end of the string, UTF8-encode each character diff --git a/wizards/source/access2base/Event.xba b/wizards/source/access2base/Event.xba index 32ec17cc3937..1e858d914284 100644 --- a/wizards/source/access2base/Event.xba +++ b/wizards/source/access2base/Event.xba @@ -254,7 +254,7 @@ Const cstDatabaseForm = "com.sun.star.comp.forms.ODatabaseForm" Set oObject = poEvent.Source _EventSource = oObject sArray = Split(Utils._getUNOTypeName(poEvent), ".") - _EventType = UCase(sArray(UBound(sArray)) + _EventType = UCase(sArray(UBound(sArray))) If Utils._hasUNOProperty(poEvent, "EventName") Then _EventName = poEvent.EventName Select Case _EventType diff --git a/wizards/source/access2base/Recordset.xba b/wizards/source/access2base/Recordset.xba index 0bc968fd4c8e..b3b611359618 100644 --- a/wizards/source/access2base/Recordset.xba +++ b/wizards/source/access2base/Recordset.xba @@ -1124,6 +1124,7 @@ Private Function _PropertiesList() As Variant _PropertiesList = Array("AbsolutePosition", "BOF", "Bookmarkable", "Bookmark", "EditMode" _ , "EOF", "Filter", "LastModified", "Name", "ObjectType" , "RecordCount" _ + ) End Function ' _PropertiesList diff --git a/wizards/source/access2base/Trace.xba b/wizards/source/access2base/Trace.xba index fdc08d4d623c..601b711fdf33 100644 --- a/wizards/source/access2base/Trace.xba +++ b/wizards/source/access2base/Trace.xba @@ -182,7 +182,7 @@ Public Sub TraceLevel(ByVal Optional psTraceLevel As String) Case psTraceLevel = "" : psTraceLevel = "ERROR" Case Utils._InList(UCase(psTraceLevel), Array( _ TRACEDEBUG, TRACEINFO, TRACEWARNING, TRACEERRORS, TRACEFATAL, TRACEABORT _ - ) + )) Case Else : Goto Exit_Sub End Select _A2B_.MinimalTraceLevel = _TraceLevel(psTraceLevel) diff --git a/wizards/source/access2base/Utils.xba b/wizards/source/access2base/Utils.xba index ac99e5aae0e3..1d7cd1dcc970 100644 --- a/wizards/source/access2base/Utils.xba +++ b/wizards/source/access2base/Utils.xba @@ -1059,7 +1059,7 @@ Const cstDot = "." Dim sName As String If InStr(psName, ".") > 0 Then - sName = Join(Split(psName, cstDot), cstSquareClose & cstDot & cstSquareOpen + sName = Join(Split(psName, cstDot), cstSquareClose & cstDot & cstSquareOpen) _Surround = cstSquareOpen & sName & cstSquareClose ElseIf InStr(psName, " ") > 0 Then _Surround = cstSquareOpen & psName & cstSquareClose _______________________________________________ Libreoffice-commits mailing list [email protected] https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits
