Fix for prev commit

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 mark77
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark78
 
 End Sub
 
@@ -60,6 +60,8 @@ End Sub
 
 Private Sub cleanAccordingTo(dialog As Object)
 	Dim statusIndicator as Object
+	Dim openTrackChanges As Boolean
+	openTrackChanges = false
 	dialog.setVisible(false)
 	saveDocument
 	statusIndicator = ThisComponent.getCurrentController.statusIndicator
@@ -117,10 +119,12 @@ Private Sub cleanAccordingTo(dialog As Object)
 	EndIf
 	If dialog.getControl(&quot;fixDOI&quot;).state = 1 Then
 		statusIndicator.Start(getTranslation(&quot;statusFixingDOI&quot;),100)	
+		openTrackChanges = true
 		fixDOI
 	EndIf
 	If dialog.getControl(&quot;replaceNumHyphen&quot;).state = 1 Then
 		statusIndicator.Start(getTranslation(&quot;replaceNumHyphenStatus&quot;),100)	
+		openTrackChanges = true
 		replaceNumHyphen
 	EndIf
 	If dialog.getControl(&quot;removeInitPageBreak&quot;).state = 1 Then
@@ -148,6 +152,9 @@ Private Sub cleanAccordingTo(dialog As Object)
 	statusIndicator.end()
 	saveAndreload()
 	MsgBox getTranslation(&quot;cleaningFinished&quot;)
+	If openTrackChanges Then
+      showTrackedChanges
+	Endif
 	
 End Sub
 
@@ -1961,7 +1968,6 @@ Private Sub replaceNumHyphen
 	StartTracking
 	replaceNumHyphenRegExp
 	StopTracking
-	showTrackedChanges
 End Sub
 
 

Redaction/Validation.xba

@@ -154,7 +154,6 @@ Private Sub fixDOI
 	StartTracking
 	replaceCharsInDOI
 	StopTracking
-	showTrackedChanges
 End Sub