[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.gelmini at gelma.net>
AuthorDate: Thu Sep 24 13:02:58 2020 +0200
Commit:     Andras Timar <andras.timar at 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.timar at 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 = "$BRAND_BASE_DIR/$BRAND_SHARE_SUBDIR/wizards/"
 	sOfficeDir = GetDefaultContext.getByName("/singletons/com.sun.star.util.theMacroExpander").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(), "%PRODUCTNAME")
@@ -331,7 +331,7 @@ Dim sString as String
 		GetResText = ""
 	End If
 	Exit Function
-ErrorOcurred:
+ErrorOccurred:
 	GetResText = ""
 	MsgBox("Resource with ID =" + sID + " not found!", 16, GetProductName())
 	Resume CLERROR