Do not clean in read only documents

Redaction/Clean.xba

@@ -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

Redaction/Configuration.xba

@@ -1,7 +1,7 @@
 <?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="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
-Public Const redactionExtensionVersion = &quot;0.7.17&quot;
+Public Const redactionExtensionVersion = &quot;0.7.18&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object

Redaction/Translations.xba

@@ -202,6 +202,9 @@ Function getRussian(identifier As String) As String
          Exit Function
       Case "dialogRussianFixesIPH"
         getRussian = "Исправления для текстов на русском"
+        Exit Function
+      Case "documentIsReadOnly"
+        getRussian = "Документ открыт только для чтения. Запуск чистки в данном режиме невозможен."
         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
@@ -387,6 +390,9 @@ Function getEnglish(identifier As String) As String
          Exit Function
       Case "dialogRussianFixesIPH"
         getEnglish = "Corrections for texts in Russian"
+        Exit Function
+      Case "documentIsReadOnly"
+        getEnglish = "The document is read-only. Cleaning cannot be started in this mode."
         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
@@ -572,6 +578,9 @@ Function getCroatian(identifier As String) As String
       Case "dialogRussianFixesIPH"
         getCroatian = "Ispravci za tekstove na ruskom"
         Exit Function
+      Case "documentIsReadOnly"
+        getCroatian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
+        Exit Function
     Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -756,6 +765,9 @@ Function getSerbian(identifier As String) As String
       Case "dialogRussianFixesIPH"
         getSerbian = "Исправци за текстове на руском"
         Exit Function
+      Case "documentIsReadOnly"
+        getSerbian = "Документ је само за читање. Чишћење се не може покренути у овом режиму."
+        Exit Function
       Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -940,6 +952,9 @@ Function getBosnian(identifier As String) As String
       Case "dialogRussianFixesIPH"
         getBosnian = "Ispravci za tekstove na ruskom"
         Exit Function
+      Case "documentIsReadOnly"
+        getBosnian = "Dokument je samo za čitanje. Čišćenje nije moguće pokrenuti u ovom načinu rada."
+        Exit Function
       Case Else
 	    getBosnian = "No translation"
 	End Select  

build.gradle

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

description.xml

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8" standalone="no"?>
 <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction"/>
-  <version value="0.7.17"/>
+  <version value="0.7.18"/>
   <platform value="all"/>
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>