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

[Jean-Pierre Ledure]

 wizards/source/access2base/UtilProperty.xba |    4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

New commits:
commit 77801cd501af08f41099feef36a72001ee6c84b4
Author: Jean-Pierre Ledure <j...@ledure.be>
Date:   Sun Dec 6 15:47:06 2015 +0100

    Access2Base - Option Explicit in UtilProperty module
    
    Change-Id: Iab982421be37e670201561b67cc66fb91d30de91

diff --git a/wizards/source/access2base/UtilProperty.xba 
b/wizards/source/access2base/UtilProperty.xba
index b265550..6fbe105 100644
--- a/wizards/source/access2base/UtilProperty.xba
+++ b/wizards/source/access2base/UtilProperty.xba
@@ -24,6 +24,8 @@ REM 
============================================================================
 &apos;         Jean-Pierre Ledure              Adapted to Access2Base coding 
conventions
 &apos;**********************************************************************
 
+Option Explicit
+
 REM 
=======================================================================================================================
 Public Function _MakePropertyValue(ByVal Optional psName As String, Optional 
pvValue As Variant) As com.sun.star.beans.PropertyValue
 &apos;   Create and return a new com.sun.star.beans.PropertyValue.
@@ -72,7 +74,7 @@ Public Function _FindProperty(pvPropertyValuesArray, ByVal 
psPropName As String)
 &apos; Find a particular named property from an array of PropertyValue&apos;s.
 &apos; Finds the PropertyValue and returns it, or returns Null if not found.
 
-Dim iPropIndex As Integer
+Dim iPropIndex As Integer, vProp As Variant
        iPropIndex = _FindPropertyIndex(pvPropertyValuesArray, psPropName)
        If iPropIndex &gt;= 0 Then
                vProp = pvPropertyValuesArray(iPropIndex) &apos; access array 
subscript
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
http://lists.freedesktop.org/mailman/listinfo/libreoffice-commits