push new version

Redaction/Clean.xba

@@ -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 mark61
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark64
 
 End Sub
 
@@ -29,6 +29,7 @@ Private Sub makerUpMenu
     dialog.getControl(&quot;replaceWhiteBackground&quot;).Label = getTranslation(&quot;advancedMenuReplaceWhiteBackground&quot;)
     dialog.getControl(&quot;removeUnusedStyles&quot;).Label = getTranslation(&quot;advancedMenuRemoveUnusedStyles&quot;)
     dialog.getControl(&quot;removeLinks&quot;).Label = getTranslation(&quot;advancedMenuRemoveLinks&quot;)
+    dialog.getControl(&quot;removeAllFields&quot;).Label = getTranslation(&quot;advancedMenuRemoveAllFields&quot;)
     dialog.getControl(&quot;removeBookmarks&quot;).Label = getTranslation(&quot;advancedMenuRemoveBookmarks&quot;)
     dialog.getControl(&quot;configTables&quot;).Label = getTranslation(&quot;advancedMenuConfigTables&quot;)
     dialog.getControl(&quot;configAnchors&quot;).Label = getTranslation(&quot;advancedMenuConfigAnchors&quot;)
@@ -87,6 +88,10 @@ Private Sub cleanAccordingTo(dialog As Object)
  		statusIndicator.Start(getTranslation(&quot;statusRemoveLinks&quot;),100)	
 		removeHyperlinks
 	EndIf
+    If dialog.getControl(&quot;removeAllFields&quot;).state = 1 Then
+ 		statusIndicator.Start(getTranslation(&quot;statusRemoveAllFields&quot;),100)	
+		removeAllFields
+	EndIf
 	If dialog.getControl(&quot;removeBookmarks&quot;).state = 1 Then
 		statusIndicator.Start(getTranslation(&quot;statusRemoveBookmarks&quot;),100)	
 		disposeAllBookmarks
@@ -377,6 +382,18 @@ Private Sub removeUserPageStyles
     Next i
 End Sub
 
+Sub removeAllFields()
+  Dim fields As Object
+  Dim fieldEnum As Object
+  Dim field As Object
+  fields = ThisComponent.getTextFields() 
+  fieldEnum = fields.createEnumeration()
+  While fieldEnum.hasMoreElements
+    field = fieldEnum.nextElement()
+    field.dispose()
+  Wend
+End sub
+
 Private Sub fixFrequentMistakes
 	Dim config As Object
 	config = initRedactionConfiguration()

Redaction/CleaningDialog.xdl

@@ -23,5 +23,6 @@
   <dlg:button dlg:id="buttonLoad" dlg:tab-index="18" dlg:left="158" dlg:top="172" dlg:width="52" dlg:height="12" dlg:value="loadTemplate">
    <script:event script:event-name="on-performaction" script:macro-name="vnd.sun.star.script:Redaction.Configuration.setDeafultTemplate?language=Basic&amp;location=application" script:language="Script"/>
   </dlg:button>
+  <dlg:checkbox dlg:id="removeAllFields" dlg:tab-index="19" dlg:left="11" dlg:top="160" dlg:width="218" dlg:height="7" dlg:value="Удалить все поля" dlg:checked="false"/>
  </dlg:bulletinboard>
 </dlg:window>

Redaction/Translations.xba

@@ -257,6 +257,12 @@ Function getRussian(identifier As String) As String
       Case "charFirstPage"
          getRussian = "Найден на стр."
          Exit Function
+      Case "statusRemoveAllFields"
+         getRussian = "Удаляются все поля данных"
+         Exit Function
+      Case "advancedMenuRemoveAllFields"
+         getRussian = "Удалить все поля данных"
+         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
 	End Select  
@@ -496,6 +502,12 @@ Function getEnglish(identifier As String) As String
       Case "charFirstPage"
          getEnglish = "Found on page"
          Exit Function
+      Case "statusRemoveAllFields"
+         getEnglish = "Removing all fields"
+         Exit Function
+      Case "advancedMenuRemoveAllFields"
+         getEnglish = "Remove all fields"
+         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  
@@ -734,6 +746,12 @@ Function getCroatian(identifier As String) As String
       Case "charFirstPage"
          getCroatian = "Pronađeno na stranici"
          Exit Function
+      Case "statusRemoveAllFields"
+         getCroatian = "Uklanjanje svih polja"
+         Exit Function
+      Case "advancedMenuRemoveAllFields"
+         getCroatian = "Uklonite sva polja"
+         Exit Function
       Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -972,6 +990,12 @@ Function getSerbian(identifier As String) As String
       Case "charFirstPage"
          getSerbian = "Пронађено на страници"
          Exit Function
+      Case "statusRemoveAllFields"
+         getSerbian = "Уклањање свих поља"
+         Exit Function
+      Case "advancedMenuRemoveAllFields"
+         getSerbian = "Уклоните сва поља"
+         Exit Function
       Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -1210,6 +1234,12 @@ Function getBosnian(identifier As String) As String
       Case "charFirstPage"
          getBosnian = "Pronađeno na stranici"
          Exit Function
+      Case "statusRemoveAllFields"
+         getBosnian = "Uklanjanje svih polja"
+         Exit Function
+      Case "advancedMenuRemoveAllFields"
+         getBosnian = "Uklonite sva polja"
+         Exit Function
       Case Else
 	    getBosnian = "No translation"
 	End Select  

build.gradle

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

cleanandvalidate.update.xml

@@ -2,9 +2,9 @@
 <description xmlns="http://openoffice.org/extensions/update/2006" 
              xmlns:xlink="http://www.w3.org/1999/xlink">
     <identifier value="pro.litvinovg.Redaction"/>
-    <version value="0.9.4" />
+    <version value="0.9.5" />
     <update-download>
-        <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/uploads/14885259cdcba68a6dcadf6bcf20e922/cleanAndValidate.oxt" />
+        <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/uploads/6c63a288bc82e4f9e97e0b8a5a554739/cleanAndValidate.oxt" />
     </update-download>
     <release-notes>
         <src xlink:href="https://dev.litvinovg.pro/litvinovg/cleanandvalidate/-/raw/master/releasenotes.txt" lang="en" />

releasenotes.txt

@@ -1,3 +1,4 @@
+0.9.5 Remove fields option added to advanced mode
 0.9.4 Added check for grouped draw elements in font report function
 0.9.3 Fix for font report function
 0.9.2 Font report in Draw added