diff options
| author | Jean-Pierre Ledure <jp@ledure.be> | 2020-11-18 12:43:21 +0100 |
|---|---|---|
| committer | Jean-Pierre Ledure <jp@ledure.be> | 2020-11-18 12:48:08 +0100 |
| commit | 11a7e6640197db97cd89630857b6ff5ba742d183 (patch) | |
| tree | 85d73c75cceb62042ea36363a241032b4ee2fb90 /wizards | |
| parent | afb92ffc62ba140ee1366ac5ecd526706e3d8a74 (diff) | |
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@ledure.be>
Reviewed-by: Jean-Pierre Ledure <jp@ledure.be>
Diffstat (limited to 'wizards')
| -rw-r--r-- | wizards/source/scriptforge/SF_Utils.xba | 4 |
1 files changed, 2 insertions, 2 deletions
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 |