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

Do not clean in read only documents

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-02 17:54:23 +02:00
parent 8116838758
commit c7c164c553
6 changed files with 23 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Redaction/Clean.xba
View file

@ -1,12 +1,16 @@
<?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 mark58
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark59
End Sub
Sub cleanButton
Dim config As Object
config = initRedactionConfiguration()
If ThisComponent.isReadonly Then
getTranslation(&quot;documentIsReadOnly&quot;)
Exit Sub
EndIf
If config.getPropertyValue(&quot;complexity&quot;) = &quot;user&quot; then
quietStartDialog()
Else