diff options
author | Alex McMurchy1917 <mcmurchy1917-libreoffice@yahoo.co.uk> | 2016-12-06 13:02:26 +0000 |
---|---|---|
committer | Katarina Behrens <Katarina.Behrens@cib.de> | 2016-12-06 15:48:01 +0000 |
commit | 08befaceb65bf2f0f0e8ec976f7826be8f5dd7d7 (patch) | |
tree | cdb9f9a97fb57bfdd6775556410733308f419626 /wizards/source | |
parent | d752b1682307008d3e08a9f11e50ddc506d5f6ab (diff) |
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@cib.de>
Tested-by: Katarina Behrens <Katarina.Behrens@cib.de>
Diffstat (limited to 'wizards/source')
-rw-r--r-- | wizards/source/tools/Strings.xba | 2 |
1 files changed, 1 insertions, 1 deletions
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 |