diff --git a/description.xml b/description.xml
index d15f16f..76307c1 100644
--- a/description.xml
+++ b/description.xml
@@ -3,7 +3,7 @@
xmlns:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink">
-
+
Инструменты для создания электронных изданий
diff --git a/ePublishing/TOCLinks.xba b/ePublishing/TOCLinks.xba
index c4cd0f0..f0ef479 100644
--- a/ePublishing/TOCLinks.xba
+++ b/ePublishing/TOCLinks.xba
@@ -1,9 +1,6 @@
-Sub markTOC4
-End Sub
-
-Sub makeOutlineLinks
+Sub makeOutlineLinks
Dim i As Integer
For i = 1 To 10
makeLinksWithLevel(i)
@@ -34,8 +31,7 @@ Sub makeLinksWithLevel(level)
MsgBox (getTranslation("TOCErrorContentsNotMatchHeadings1") & " " & level & " (" & (Ubound(outline)+1) & getTranslation("TOCErrorContentsNotMatchHeadings2") & " " & level & " " & getTranslation("TOCErrorContentsNotMatchHeadings3") & (Ubound(heading)+1) & ")"
EndIf
ElseIf Ubound(outline) = -1 Then
-
- MsgBox (getTranslation("TOCErrorNoContents1") & " " & level & " " & getTranslation("TOCErrorNoContents2"))
+' MsgBox (getTranslation("TOCErrorNoContents1") & " " & level & " " & getTranslation("TOCErrorNoContents2"))
ElseIf Ubound(heading) = -1 Then
MsgBox (getTranslation("TOCErrorNoHeadings1") & " " & level & " " & getTranslation("TOCErrorNoHeadings2"))
EndIf
diff --git a/ePublishing/Translations.xba b/ePublishing/Translations.xba
index f31fd11..b38f0bb 100644
--- a/ePublishing/Translations.xba
+++ b/ePublishing/Translations.xba
@@ -115,7 +115,7 @@ Function getRussian(identifier As String) As String
Case "TOCErrorNoHeadings1"
getRussian = "Не могу сделать ссылки в оглавлении. Заголовоков"
Exit Function
- Case "TOCErrorNoContents1"
+ Case "TOCErrorNoHeadings2"
getRussian = "уровня не найдено."
Exit Function
Case "TOCErrorNoContents1"
@@ -137,7 +137,7 @@ Function getRussian(identifier As String) As String
getRussian = "Вы уверены, что хотите запустить сборку выпуска ?"
Exit Function
Case "compileJournalIssueNoCurFilename"
- getRussian = "Сборка выпуска начата, подождите"
+ getRussian = "Шаблон выпуска нужно сохранить в директории с файлами статей."
Exit Function
Case "compileJournalIssueStatusInProgerss"
getRussian = "Сборка выпуска начата, подождите"
@@ -279,7 +279,7 @@ Function getEnglish(identifier As String) As String
Case "TOCErrorNoHeadings1"
getEnglish = "Can't create links in table of contents. No headings with "
Exit Function
- Case "TOCErrorNoContents1"
+ Case "TOCErrorNoHeadings2"
getEnglish = "level found."
Exit Function
Case "TOCErrorNoContents1"
@@ -301,7 +301,7 @@ Function getEnglish(identifier As String) As String
getEnglish = "Compile journal issue from articles?"
Exit Function
Case "compileJournalIssueNoCurFilename"
- getEnglish = "Issue compilation in progress"
+ getEnglish = "Save issue template in the same directory where are the articles."
Exit Function
Case "compileJournalIssueStatusInProgerss"
getEnglish = "Issue compilation in progress"
diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba
index 4cb463c..fe96723 100644
--- a/ePublishing/journals.xba
+++ b/ePublishing/journals.xba
@@ -1,6 +1,6 @@
-Private sub journalsMark12
+Private sub journalsMark13
End sub
Dim templateName As String
diff --git a/translations.ods b/translations.ods
index 6077a53..5ab7d2f 100644
Binary files a/translations.ods and b/translations.ods differ