Translated validation

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 mark49
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Clean" script:language="StarBasic">Sub mark50
 
 End Sub
 

Redaction/Translations.xba

@@ -143,7 +143,48 @@ Function getRussian(identifier As String) As String
       Case "statusRemovedUnusedStyles"
          getRussian = "Удаляем неиспользуемые стили"
          Exit Function
-
+      Case "validationSuccess"
+         getRussian = "Документ успешно прошел проверку. " & chr(10) & "Проблем не было найдено"
+         Exit Function
+      Case "validationWarning"
+         getRussian = "Перед публикацией документа следует исправить все найденные замечания."
+         Exit Function
+      Case "validationBadSymbolsNotification"
+         getRussian = "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами."
+         Exit Function
+      Case "validationBadDrawings"
+         getRussian = "В документе найдены рисунки ("
+         Exit Function
+      Case "validationBadEmbeededObjects"
+         getRussian = "В документе найдены встроенные объекты ("
+         Exit Function
+      Case "validationExcerptNotSuitable"
+         getRussian = "), неподходящие для публикации. "
+         Exit Function
+      Case "validateFootnotes1"
+         getRussian = "Символ"
+         Exit Function
+      Case "validateFootnotes2"
+         getRussian = "в сноске (абсолютный номер)"
+         Exit Function
+      Case "validateFootnotes3"
+         getRussian = "не подходит для публикации"
+         Exit Function
+      Case "validateNumberingsReportFonts"
+         getRussian = "В следующих списках нумерации найдены шрифты"
+         Exit Function
+      Case "validateNumberingsReportSymbols"
+         getRussian = "В качестве маркера в следующих списках нумерации задан некорректный символ"
+         Exit Function
+      Case "validateNumberingLevel"
+         getRussian = "Уровень"
+         Exit Function
+      Case "validateNumberingFont"
+         getRussian = "шрифт"
+         Exit Function
+      Case "validateNumberingSymbol"
+         getRussian = "символ"
+         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
 	End Select  
@@ -278,6 +319,48 @@ Function getEnglish(identifier As String) As String
       Case "statusRemovedUnusedStyles"
          getEnglish = "Removing unused styles"
          Exit Function
+      Case "validationSuccess"
+         getEnglish = "Validation completed successfully" & chr(10) & "No problems found."
+         Exit Function
+      Case "validationWarning"
+         getEnglish = "It is recommended to fix all problems before publication."
+         Exit Function
+      Case "validationBadSymbolsNotification"
+         getEnglish = "Unsuitable symbols were found" & chr(10) & " Now you will get the list with bad symbols."
+         Exit Function
+      Case "validationBadDrawings"
+         getEnglish = "Drawings was found ("
+         Exit Function
+      Case "validationBadEmbeededObjects"
+         getEnglish = "Embeeded objects were found ("
+         Exit Function
+      Case "validationExcerptNotSuitable"
+         getEnglish = "), which are not suitable for digital publication"
+         Exit Function
+      Case "validateFootnotes1"
+         getEnglish = "Symbol"
+         Exit Function
+      Case "validateFootnotes2"
+         getEnglish = "in footnote (absolute number)"
+         Exit Function
+      Case "validateFootnotes3"
+         getEnglish = "is not suitable for publication"
+         Exit Function
+      Case "validateNumberingsReportFonts"
+         getEnglish = "In next numbering lists found fonts "
+         Exit Function
+      Case "validateNumberingsReportSymbols"
+         getEnglish = "Incorrect symbol used as a marker in following numbering lists"
+         Exit Function
+      Case "validateNumberingLevel"
+         getEnglish = "Level"
+         Exit Function
+      Case "validateNumberingFont"
+         getEnglish = "font"
+         Exit Function
+      Case "validateNumberingSymbol"
+         getEnglish = "symbol"
+         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
 	End Select  

Redaction/Validation.xba

@@ -61,13 +61,13 @@ Sub validateButton
 		printNumberingSymbols(needExtendedInfo)
 	
 	If badText OR badNumberings OR badFootnoteSigns OR badGraphics Then
-		MsgBox "Перед публикацией документа следует исправить все найденные замечания."		
+		MsgBox getTranslation("validationWarning")	
 		If badText Then
-			MsgBox "В тексте обнаружены неподходящие для публикции символы." & chr(10) & " Далее будет представлен список отрывков текста с подобными символами."
+			MsgBox getTranslation("validationBadSymbolsNotification")
 			removeBadCharacters
 		EndIf
 	Else
-      MsgBox "Документ успешно прошел проверку. " & chr(10) & "Все изображения и символы корректны."
+      MsgBox getTranslation("validationSuccess")
 	EndIf
 End Sub
 
@@ -108,10 +108,10 @@ Private Function checkGraphics() As String
 		EndIf	
 	Next i
 	If drawingN <> 0 Then
-		result = result &"В документе найдены рисунки (" & drawingN & "), неподходящие для публикации." & chr(10)
+		result = result & getTranslation("validationBadDrawings") & drawingN & getTranslation("validationExcerptNotSuitable") & chr(10)
 	EndIf
 	If badFrame <> 0 Then
-		result = result &"В документе найдены встроенные объекты (" & badFrame & "), неподходящие для публикации." & chr(10)
+		result = result & getTranslation("validationBadEmbeededObjects") & badFrame & getTranslation("validationExcerptNotSuitable") & chr(10)
 	EndIf
 	checkGraphics = result
 End Function
@@ -142,7 +142,7 @@ Private Function checkAllFootnotes() As String
 		For j = 1 to charNum
 		  char = Asc(Right(Left(label,j),1))
 		  If char >= 57344 AND char <= 63743 then
-		  	result = result & "Символ "& Chr(char) &" сноски "& i &" не подходит для публикации"& chr(10)
+		  	result = result & getTranslation("validateFootnotes1") & " " & Chr(char) & " " & getTranslation("validateFootnotes2") & " " & i & " " & getTranslation("validateFootnotes3") & chr(10)
 		  End If
 		Next j
 	Next i
@@ -195,7 +195,7 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 			  	exLength = Len(excerpt)
 			  EndIf
 			  If fontChar <> "" Then
-				  tmp = "Уровень " & (j + 1) & " шрифт " & fontName & " символ " & fontChar & " (" & Hex(Asc(fontChar)) & ") "& Left(excerpt,exLength) & chr(10) 
+				  tmp = getTranslation("validateNumberingLevel") &" " & (j + 1) & " " & getTranslation("validateNumberingFont") & " " & fontName & " " & getTranslation("validateNumberingSymbol") & " " & fontChar & " (" & Hex(Asc(fontChar)) & ") "& Left(excerpt,exLength) & chr(10) 
 				  If Asc(fontChar) > 57344  AND Asc(fontChar) < 63743 Then
 				  	resultBad = resultBad & tmp
 				  ElseIf fontName <> "IPH Astra Serif" _
@@ -218,10 +218,10 @@ Private Sub printNumberingSymbols(needExtendedInfo)
 		Exit sub
 	Else  
 	    If resultBad <> "" Then
-	    	report = "В качестве маркера в следующих списках нумерации задан некорректный символ"& chr(10) & resultBad
+	    	report = getTranslation("validateNumberingsReportSymbols") & chr(10) & resultBad
 	    EndIf
 	    If result <> "" Then
-			report = report & "В следующих списках нумерации найдены шрифты "& chr(10)& result
+			report = report & getTranslation("validateNumberingsReportFonts") & " "& chr(10)& result
 		EndIf
 	EndIf
 	MsgBox report	

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