Bugfix

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 mark44
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark45
 
 End Sub
 
@@ -95,7 +95,7 @@ Private Sub cleanAccordingTo(dialog As Object)
 	
 	statusIndicator.end()
 	saveAndreload()
-	MsgBox &quot;Чистка завершена.&quot;
+	MsgBox getTranslation(lang,&quot;cleaningFinished&quot;)
 	
 End Sub
 
@@ -145,7 +145,7 @@ Private Sub quietCleaning
 	removeLibs
 	statusIndicator.end()
 	saveAndreload()
-	MsgBox &quot;Чистка завершена.&quot;
+	MsgBox getTranslation(lang,&quot;cleaningFinished&quot;)
 End Sub
 
 Private Sub removeFirstElementPageBreak

Redaction/Translations.xba

@@ -41,6 +41,9 @@ Function getRussian(identifier As String) As String
       Case "buttonNameToSelectFileWithStyles"
 	    getRussian = "Указать файл"
 	    Exit Function
+      Case "cleaningFinished"
+	    getRussian = "Чистка завершена"
+	    Exit Function
 	  Case Else
 	    getRussian = getEnglish(identifier)
 	End Select  
@@ -50,10 +53,10 @@ End Function
 Function getEnglish(identifier As String) As String
 	Select Case identifier
 	  Case "noFileWithStylesFound"
-	    getEnglish = "Template with styles wasn't found. You can choose template on your computer. This stage of cleaning will be skipped if no file chosen."
+	    getEnglish = "Template with styles wasn't found. You can choose template on your computer." & chr(10) &" This stage of cleaning will be skipped if no file chosen."
 	    Exit Function
 	   Case "startQuietCleaningDescription"
-	    getEnglish = "Do you want to start document cleaning?"  & chr(10) & "You can choose template with styles to load them in process of the cleaning."
+	    getEnglish = "Do you want to start document cleaning?"  & chr(10) & "You can choose template with styles." & chr(10) & "Styles will be loaded in process of cleaning." 
 	    Exit Function
   	  Case "noStylesFileDialogTitle"
 	    getEnglish = "Template file not found"
@@ -76,6 +79,9 @@ Function getEnglish(identifier As String) As String
       Case "buttonNameToSelectFileWithStyles"
 	    getEnglish = "Select file"
 	    Exit Function
+      Case "cleaningFinished"
+	    getEnglish = "Cleaning is completed"
+	    Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  

Redaction/Validation.xba

@@ -218,7 +218,7 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 		Exit sub
 	Else  
 	    If resultBad <> "" Then
-	    	report = "Маркером в следующих списках нумерации задан некорректный символ"& chr(10) & resultBad
+	    	report = "В качестве маркера в следующих списках нумерации задан некорректный символ"& chr(10) & resultBad
 	    EndIf
 	    If result <> "" Then
 			report = report & "В следующих списках нумерации найдены шрифты "& chr(10)& result

description.xml

@@ -3,7 +3,7 @@
              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.3" />
+  <version value="0.7.4" />
   <platform value="all" />
   <display-name>
     <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>