diff options
| author | Alex McMurchy1917 <mcmurchy1917-libreoffice@yahoo.co.uk> | 2016-12-06 13:02:26 +0000 |
|---|---|---|
| committer | Jan-Marek Glogowski <glogow@fbihome.de> | 2016-12-07 08:50:04 +0000 |
| commit | b1f739b2bc227f81b1ec740e05927e866fa81d94 (patch) | |
| tree | 872272e670796b872196d728a3a45f5b3e7464b2 | |
| parent | 1b2bb1c952a3e8dc5c625c7a9f0042f06ba1c9a0 (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>
(cherry picked from commit 08befaceb65bf2f0f0e8ec976f7826be8f5dd7d7)
Reviewed-on: https://gerrit.libreoffice.org/31695
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Jan-Marek Glogowski <glogow@fbihome.de>
| -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 |