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

Added configuration storage

Browse source
This commit is contained in:
Georgy Litvinov 2020-03-05 20:23:54 +01:00
parent 4858e854b4
commit 1045e9c871
3 changed files with 41 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

15
Redaction/Clean.xba
View file

@ -1,10 +1,21 @@
<?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 mark21
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark23
End Sub
Sub cleanButton
Dim config As Object
config = initRedactionConfiguration()
If config.getPropertyValue(&quot;complexity&quot;) = &quot;user&quot; then
quietCleaning()
Else
makerUpMenu()
EndIf
End Sub
Private Sub quietCleaning
Dim description As String
Dim statusIndicator as Object
statusIndicator = ThisComponent.getCurrentController.statusIndicator
@ -39,7 +50,7 @@ Sub cleanButton
loadArticleStyles
statusIndicator.end()
saveAndreload()
MsgBox &quot;Чистка завершена.&quot;
MsgBox &quot;Чистка завершена.&quot;
End Sub
Private Sub removeFirstElementPageBreak