litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

Fixes for latest commit

Browse source
This commit is contained in:
Georgy Litvinov 2020-05-05 15:33:25 +02:00
parent ac84062a4d
commit 4a85997850
5 changed files with 8 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

8
ePublishing/TOCLinks.xba
View file

@ -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
End Sub
Sub makeOutlineLinks
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="TOCLinks" script:language="StarBasic" script:moduleType="normal">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
MsgBox (getTranslation(&quot;TOCErrorNoContents1&quot;) &amp; &quot; &quot; &amp; level &amp; &quot; &quot; &amp; getTranslation(&quot;TOCErrorNoContents2&quot;))
&apos; 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

8
ePublishing/Translations.xba
View file

@ -115,7 +115,7 @@ Function getRussian(identifier As String) As String
Case &quot;TOCErrorNoHeadings1&quot;
getRussian = &quot;Не могу сделать ссылки в оглавлении. Заголовоков&quot;
Exit Function
Case &quot;TOCErrorNoContents1&quot;
Case &quot;TOCErrorNoHeadings2&quot;
getRussian = &quot;уровня не найдено.&quot;
Exit Function
Case &quot;TOCErrorNoContents1&quot;
@ -137,7 +137,7 @@ Function getRussian(identifier As String) As String
getRussian = &quot;Вы уверены, что хотите запустить сборку выпуска ?&quot;
Exit Function
Case &quot;compileJournalIssueNoCurFilename&quot;
getRussian = &quot;Сборка выпуска начата, подождите&quot;
getRussian = &quot;Шаблон выпуска нужно сохранить в директории с файлами статей.&quot;
Exit Function
Case &quot;compileJournalIssueStatusInProgerss&quot;
getRussian = &quot;Сборка выпуска начата, подождите&quot;
@ -279,7 +279,7 @@ Function getEnglish(identifier As String) As String
Case &quot;TOCErrorNoHeadings1&quot;
getEnglish = &quot;Can&apos;t create links in table of contents. No headings with &quot;
Exit Function
Case &quot;TOCErrorNoContents1&quot;
Case &quot;TOCErrorNoHeadings2&quot;
getEnglish = &quot;level found.&quot;
Exit Function
Case &quot;TOCErrorNoContents1&quot;
@ -301,7 +301,7 @@ Function getEnglish(identifier As String) As String
getEnglish = &quot;Compile journal issue from articles?&quot;
Exit Function
Case &quot;compileJournalIssueNoCurFilename&quot;
getEnglish = &quot;Issue compilation in progress&quot;
getEnglish = &quot;Save issue template in the same directory where are the articles.&quot;
Exit Function
Case &quot;compileJournalIssueStatusInProgerss&quot;
getEnglish = &quot;Issue compilation in progress&quot;

2
ePublishing/journals.xba
View file

@ -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