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

[Andrea Gelmini (via logerrit)]

 wizards/source/tools/Misc.xba |    8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

New commits:
commit 07451fb643b3c461054426d0f273c0f53d867739
Author:     Andrea Gelmini <andrea.gelm...@gelma.net>
AuthorDate: Thu Sep 24 13:02:58 2020 +0200
Commit:     Andras Timar <andras.ti...@collabora.com>
CommitDate: Thu Sep 24 15:31:41 2020 +0200

    Fix typo in code
    
    It passed "make check" on Linux
    
    Change-Id: I860ce01077f1b71fa87eb6616cca676ef21af1a0
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/103307
    Tested-by: Jenkins
    Reviewed-by: Andras Timar <andras.ti...@collabora.com>

diff --git a/wizards/source/tools/Misc.xba b/wizards/source/tools/Misc.xba
index 9b9e1dba6cda..9813acdbf931 100644
--- a/wizards/source/tools/Misc.xba
+++ b/wizards/source/tools/Misc.xba
@@ -294,7 +294,7 @@ Function InitResources(Description) as boolean
 Dim xResource as Object
 Dim sOfficeDir as String
 Dim aArgs(5) as Any
-       On Error Goto ErrorOcurred
+       On Error Goto ErrorOccurred
        sOfficeDir = &quot;$BRAND_BASE_DIR/$BRAND_SHARE_SUBDIR/wizards/&quot;
        sOfficeDir = 
GetDefaultContext.getByName(&quot;/singletons/com.sun.star.util.theMacroExpander&quot;).ExpandMacros(sOfficeDir)
        aArgs(0) = sOfficeDir
@@ -311,7 +311,7 @@ Dim aArgs(5) as Any
                InitResources = TRUE
        End If
        Exit Function
-ErrorOcurred:
+ErrorOccurred:
        Dim nSolarVer
        InitResources = FALSE
        nSolarVer = GetSolarVersion()
@@ -323,7 +323,7 @@ End Function
 
 Function GetResText( sID as String ) As string
 Dim sString as String
-       On Error Goto ErrorOcurred
+       On Error Goto ErrorOccurred
        If Not IsNull(oResSrv) Then
                sString = oResSrv.resolveString(sID)
                GetResText = ReplaceString(sString, GetProductname(), 
&quot;%PRODUCTNAME&quot;)
@@ -331,7 +331,7 @@ Dim sString as String
                GetResText = &quot;&quot;
        End If
        Exit Function
-ErrorOcurred:
+ErrorOccurred:
        GetResText = &quot;&quot;
        MsgBox(&quot;Resource with ID =&quot; + sID + &quot; not found!&quot;, 
16, GetProductName())
        Resume CLERROR
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits