[Libreoffice-commits] core.git: Branch 'libreoffice-5-3' - wizards/source
Jean-Pierre Ledure
jp at ledure.be
Mon Mar 27 21:14:51 UTC 2017
wizards/source/access2base/Application.xba | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
New commits:
commit c317670eb6b5d29f0447feff0c33d528a88f4c8a
Author: Jean-Pierre Ledure <jp at ledure.be>
Date: Sun Mar 26 12:34:21 2017 +0200
Access2Base Missing parentheses - tdf#106710
Due to more severe Basic interpreter on final parentheses
missing parentheses were revealed
(complement to commit cc16dfb11dfc275317bb535a62b11935c562b670)
Change-Id: I45b43bca4a5ee938e9c4dc0b0f8b2d5856f710da
Reviewed-on: https://gerrit.libreoffice.org/35717
Tested-by: Jenkins <ci at libreoffice.org>
Reviewed-by: Mike Kaganski <mike.kaganski at collabora.com>
diff --git a/wizards/source/access2base/Application.xba b/wizards/source/access2base/Application.xba
index 783fca73541e..3383e7bd009a 100644
--- a/wizards/source/access2base/Application.xba
+++ b/wizards/source/access2base/Application.xba
@@ -1147,7 +1147,7 @@ Const cstThisSub = "OpenDatabase"
Set oBaseContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
sDbNames() = oBaseContext.getElementNames()
bFound = False
- For i = 0 To UBound(sDbNames() ' Enumerate registered databases and check non case-sensitive equality
+ For i = 0 To UBound(sDbNames()) ' Enumerate registered databases and check non case-sensitive equality
If UCase(sDbNames(i)) = UCase(pvDatabaseURL) Then
sDatabaseURL = sDbNames(i)
Set oBaseSource = oBaseContext.getByName(sDatabaseURL)
More information about the Libreoffice-commits
mailing list