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

[Jean-Pierre Ledure (via logerrit)]

 wizards/source/access2base/PropertiesGet.xba |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

New commits:
commit fcb2b4695fdc7f5c9915a176762cfcbafe96e945
Author:     Jean-Pierre Ledure <jp at ledure.be>
AuthorDate: Mon Aug 24 18:07:45 2020 +0200
Commit:     Jean-Pierre Ledure <jp at ledure.be>
CommitDate: Mon Aug 24 18:14:29 2020 +0200

    Access2Base - tdf#136063 Workaround Basic missing argument handling
    
    When an argument is missing in a call to a Basic function
    the IsMissing() function applied on the argument
    should respond True.
    However sometimes(?) the argument contains instead "Error 448"
    making IsMissing responding False.
    
    This commit puts an explicit argument in the function call
    avoiding the different behaviour of the Basic interpreter
    in LO 7.0 vs. previous releases.
    
    Change-Id: Ic90fb7ec9b6e520cc762a441ca383b54c5d4db16

diff --git a/wizards/source/access2base/PropertiesGet.xba b/wizards/source/access2base/PropertiesGet.xba
index 332eaaa2e5c2..e6d481ec68e5 100644
--- a/wizards/source/access2base/PropertiesGet.xba
+++ b/wizards/source/access2base/PropertiesGet.xba
@@ -1017,7 +1017,7 @@ Dim sObject As String
 	_hasProperty = False
 	If Not Utils._CheckArgument(pvProperty, 1, vbString) Then Goto Exit_Function
 	
-	_hasProperty = Utils._InList(pvProperty, pvPropertiesList(), , True)
+	_hasProperty = Utils._InList(pvProperty, pvPropertiesList(), False, True)
 
 Exit_Function:
 	Utils._ResetCalledSub(sObject & ".hasProperty")