diff options
| author | Andrea Gelmini <andrea.gelmini@gelma.net> | 2020-09-24 13:02:58 +0200 |
|---|---|---|
| committer | Andras Timar <andras.timar@collabora.com> | 2020-09-24 15:31:41 +0200 |
| commit | 07451fb643b3c461054426d0f273c0f53d867739 (patch) | |
| tree | ac2e0dace18b5b1179affe73d2b4b7dc95d69f0e /wizards | |
| parent | 9ad61fe99f02e0da7333e7b81834a96983ad48c2 (diff) | |
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@collabora.com>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/tools/Misc.xba | 8 |
1 files changed, 4 insertions, 4 deletions
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 |