[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-libreoff...@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.behr...@cib.de>
    Tested-by: Katarina Behrens <katarina.behr...@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,&quot;.&quot;, MaxIndex)
-       GetFileNameWithoutExtension = RTrimStr(FileName, &quot;.&quot; &amp; 
SepList(MaxIndex)
+       GetFileNameWithoutExtension = RTrimStr(FileName, &quot;.&quot; &amp; 
SepList(MaxIndex))
 End Function
 
 
_______________________________________________
Libreoffice-commits mailing list
libreoffice-comm...@lists.freedesktop.org
https://lists.freedesktop.org/mailman/listinfo/libreoffice-commits