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

Jean-Pierre Ledure (via logerrit) logerrit at kemper.freedesktop.org
Wed Nov 18 11:48:52 UTC 2020


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

New commits:
commit 11a7e6640197db97cd89630857b6ff5ba742d183
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Wed Nov 18 12:43:21 2020 +0100
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Wed Nov 18 12:48:08 2020 +0100

    ScriptForge - Fix script invocation when scope is not in lower case
    
    The scope can be expressed as "document" or "application"
    but also as "Document" or "DOCUMENT"
    
    Change-Id: Id70407cc1167cfcac727d63f1ab29fbba4fc6645
    Reviewed-on: https://gerrit.libreoffice.org/c/core/+/106054
    Tested-by: Jean-Pierre Ledure <jp at ledure.be>
    Reviewed-by: Jean-Pierre Ledure <jp at ledure.be>

diff --git a/wizards/source/scriptforge/SF_Utils.xba b/wizards/source/scriptforge/SF_Utils.xba
index f24d5825f53e..67aa32f29c77 100644
--- a/wizards/source/scriptforge/SF_Utils.xba
+++ b/wizards/source/scriptforge/SF_Utils.xba
@@ -398,7 +398,7 @@ Dim vNodePath As Variant
 				Set _GetUNOService = .PathSubstitution
 			Case "ScriptProvider"
 				If IsMissing(pvArg) Then pvArg = SF_Session.SCRIPTISAPPLICATION
-				Select Case pvArg
+				Select Case LCase(pvArg)
 					Case SF_Session.SCRIPTISEMBEDDED	'	Document
 						If Not IsNull(ThisComponent) Then Set _GetUNOService = ThisComponent.getScriptProvider()
 					Case Else
@@ -964,4 +964,4 @@ Dim iType As Integer	'	VarType of argument
 End Function	'	ScriptForge.SF_Utils._VarTypeExt
 
 REM ================================================= END OF SCRIPTFORGE.SF_UTILS
-</script:module>
+</script:module>
\ No newline at end of file


More information about the Libreoffice-commits mailing list