Added configuration storage

Redaction/Clean.xba

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

Redaction/Configuration.xba

@@ -0,0 +1,27 @@
+<?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 redactionExtenstionName As String = &quot;cleanAndValidate&quot;
+
+Function initRedactionConfiguration()
+	On Error Goto exceptionHandler
+	Dim regFactory As Object
+	Dim reg As Object
+    Dim props(2) As New com.sun.star.beans.PropertyValue
+
+    regFactory = CreateUnoService(&quot;com.sun.star.ucb.Store&quot;)
+    reg = regFactory.createPropertySetRegistry(redactionExtenstionName)
+
+   	redactionProps = reg.openPropertySet(redactionExtenstionName, TRUE)
+   	redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;)
+	initConfigureation = redactionProps
+	exceptionHandler:
+	Resume Next
+	initRedactionConfiguration = redactionProps
+End Function
+
+Sub setRedactionComplexity(complexityLevel)
+	Dim config As Object
+	config = initRedactionConfiguration()
+	config.setPropertyValue(&quot;complexity&quot;, complexityLevel)
+End Sub
+</script:module>

Redaction/script.xlb

@@ -3,4 +3,5 @@
 <library:library xmlns:library="http://openoffice.org/2000/library" library:name="Redaction" library:readonly="false" library:passwordprotected="false">
  <library:element library:name="Validation"/>
  <library:element library:name="Clean"/>
+ <library:element library:name="Configuration"/>
 </library:library>