Fixes for latest commit

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.epublishing" />
-  <version value="0.3.1" />
+  <version value="0.4.2" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>

ePublishing/TOCLinks.xba

@@ -1,9 +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="TOCLinks" script:language="StarBasic" script:moduleType="normal">Sub markTOC4
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TOCLinks" script:language="StarBasic" script:moduleType="normal">Sub makeOutlineLinks
-End Sub
-
-Sub makeOutlineLinks
 	Dim i As Integer
 	For i = 1 To 10
 		makeLinksWithLevel(i)
@@ -34,8 +31,7 @@ Sub makeLinksWithLevel(level)
 			MsgBox (getTranslation(&quot;TOCErrorContentsNotMatchHeadings1&quot;) &amp; &quot; &quot; &amp; level &amp; &quot; (&quot; &amp; (Ubound(outline)+1) &amp; getTranslation(&quot;TOCErrorContentsNotMatchHeadings2&quot;) &amp; &quot; &quot; &amp; level &amp; &quot; &quot; &amp; getTranslation(&quot;TOCErrorContentsNotMatchHeadings3&quot;) &amp; (Ubound(heading)+1) &amp; &quot;)&quot;
 		EndIf	
 	ElseIf Ubound(outline) = -1 Then
-		
+&apos;		MsgBox (getTranslation(&quot;TOCErrorNoContents1&quot;) &amp; &quot; &quot; &amp; level &amp; &quot; &quot; &amp; getTranslation(&quot;TOCErrorNoContents2&quot;))
-		MsgBox (getTranslation(&quot;TOCErrorNoContents1&quot;) &amp; &quot; &quot; &amp; level &amp; &quot; &quot; &amp; getTranslation(&quot;TOCErrorNoContents2&quot;))
 	ElseIf Ubound(heading) = -1 Then
 		MsgBox (getTranslation(&quot;TOCErrorNoHeadings1&quot;) &amp; &quot; &quot; &amp; level &amp; &quot; &quot; &amp; getTranslation(&quot;TOCErrorNoHeadings2&quot;))
 	EndIf

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"

ePublishing/journals.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="journals" script:language="StarBasic">Private sub journalsMark12
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark13
 End sub
 
 Dim templateName As String