mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fix typo in code

Browse Source 
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>
This commit is contained in:
Andrea Gelmini
2020-09-24 13:02:58 +02:00
committed by Andras Timar
parent 9ad61fe99f
commit 07451fb643
1 changed files with 4 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
wizards/source/tools/Misc.xba
View File

@@ -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