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

[Alex McMurchy1917]

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

New commits:
commit 08befaceb65bf2f0f0e8ec976f7826be8f5dd7d7
Author: Alex McMurchy1917 <mcmurchy1917-libreoffice at yahoo.co.uk>
Date:   Tue Dec 6 13:02:26 2016 +0000

    Fixes tdf#104412 - DirectoryNameoutofPath no longer works
    
    In the macro tools library the subroutine GetFileNameWithoutExtension
    has a missing bracket in the last line. This confuses the following
    subroutine DirectoryNameoutofPath causing it to fail.
    
    This only came to light after the introduction of commit
    
    "tdf#80731 Closing parenthesis is now detected (Mid statement and functions)."
    
    which tightened up on syntax validation.
    
    This commit adds in the missing bracket to subroutine
    GetFileNameWithoutExtension in the macro tools library.
    
    Change-Id: I015c88a29a933cd42b7a7623a9ae70d090739c54
    Reviewed-on: https://gerrit.libreoffice.org/31677
    Reviewed-by: Katarina Behrens <Katarina.Behrens at cib.de>
    Tested-by: Katarina Behrens <Katarina.Behrens at cib.de>

diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba
index 6938938..4c2802f 100644
--- a/wizards/source/tools/Strings.xba
+++ b/wizards/source/tools/Strings.xba
@@ -345,7 +345,7 @@ Dim SepList() as String
 		FileName = FileNameoutofPath(FileName, Separator)
 	End If
 	SepList() = ArrayoutofString(FileName,".", MaxIndex)
-	GetFileNameWithoutExtension = RTrimStr(FileName, "." & SepList(MaxIndex)
+	GetFileNameWithoutExtension = RTrimStr(FileName, "." & SepList(MaxIndex))
 End Function