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

[Andrea Gelmini (via logerrit)]

 wizards/source/template/Samples.xba |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

New commits:
commit ecf3857ce5b098db78ddd12c7f532b7e726e78e6
Author:     Andrea Gelmini <andrea.gelmini at gelma.net>
AuthorDate: Fri Sep 25 12:16:14 2020 +0200
Commit:     Julien Nabet <serval2412 at yahoo.fr>
CommitDate: Sat Sep 26 09:38:54 2020 +0200

    Fix typo in code
    
    It passed "make check" on Linux
    
    Change-Id: I66b0ea493386cb93780d52b76d5f035ecf7c6541
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/103451
    Tested-by: Jenkins
    Reviewed-by: Julien Nabet <serval2412 at yahoo.fr>

diff --git a/wizards/source/template/Samples.xba b/wizards/source/template/Samples.xba
index 3009f4cba705..25ff81bcf14d 100644
--- a/wizards/source/template/Samples.xba
+++ b/wizards/source/template/Samples.xba
@@ -110,7 +110,7 @@ End Sub
 
 Sub SaveCurrentStyles(oDocument as Object)
 'This sub stores the current document in the directory to hold temporary files.
-	On Error Goto ErrorOcurred
+	On Error Goto ErrorOccurred
 	aTempURL = GetPathSettings("Temp", False)
 	Dim aRightMost as String
 	aRightMost = Right(aTempURL, 1)
@@ -126,7 +126,7 @@ Sub SaveCurrentStyles(oDocument as Object)
 	oDocument.storeToURL(aTempURL, NoArgs())
 	Exit Sub
 
-ErrorOcurred:
+ErrorOccurred:
 	MsgBox(GetResText("STYLES_1"), 16, GetResText("STYLES_0"))
 	On Local Error Goto 0
 End Sub