litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Fix

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-02 15:40:01 +02:00
parent 3b8e0826e9
commit 4f151a7e5e
2 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
Redaction/Clean.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark57
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark58
End Sub
@ -1014,6 +1014,7 @@ Private Sub convertEnclosuresToFormat(identifier As String, styleNames, styleVal
Dim rightEnclosure As String
Dim SDesc As Object
Dim found As Object
leftEnclosure = compileLeftEnclosure(identifier)
rightEnclosure = compileRightEnclosure(identifier)
SDesc = Thiscomponent.createSearchDescriptor()
@ -1370,6 +1371,7 @@ Private Sub convertFormatToUserFields(identifier As String, styleNames, styleVal
Dim leftField As String
Dim rightField As String
Dim i As Integer
Dim found As Object
leftField = &quot;left&quot; &amp; identifier
rightField = &quot;right&quot; &amp; identifier
Dim SrchAttributes(Ubound(styleNames)) as new com.sun.star.beans.PropertyValue
@ -1388,7 +1390,7 @@ Private Sub convertFormatToUserFields(identifier As String, styleNames, styleVal
found = Thiscomponent.findFirst(SDesc)
i = 0
Do While not isNull(found)
If Len(found.String) &lt;&gt; 0 Then
If Len(found.String) &lt;&gt; 0 AND NOT IsNull(found.Text) Then
insertUserField(found.End,rightField &amp; i,&quot;&quot;)
insertUserField(found.start,leftField &amp; i,&quot;&quot;)
i = i + 1

2
build.gradle
View file

@ -1,4 +1,4 @@
def releaseVersion = "0.7.16"
def releaseVersion = "0.7.17"
task oxt(type: Zip) {
dependsOn = [ 'setVersion','setVersionInBasicCode' ]
from './'