From 08befaceb65bf2f0f0e8ec976f7826be8f5dd7d7 Mon Sep 17 00:00:00 2001 From: Alex McMurchy1917 Date: Tue, 6 Dec 2016 13:02:26 +0000 Subject: 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 Tested-by: Katarina Behrens --- wizards/source/tools/Strings.xba | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'wizards/source') diff --git a/wizards/source/tools/Strings.xba b/wizards/source/tools/Strings.xba index 69389388251d..4c2802f1a8cb 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 -- cgit