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

fix: exit if excerption happened while compiling journal

Browse source
This commit is contained in:
Georgy Litvinov 2021-08-27 12:13:31 +02:00
parent 5bb9600439
commit f39f25b053
2 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
description.xml
View file

@ -3,7 +3,7 @@
xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink"> xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.epublishing" /> <identifier value="pro.litvinovg.epublishing" />
<version value="0.7.7" /> <version value="0.7.8" />
<platform value="all" /> <platform value="all" />
<display-name> <display-name>
<name lang="ru">Инструменты для создания электронных изданий</name> <name lang="ru">Инструменты для создания электронных изданий</name>

8
ePublishing/journals.xba
View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!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 journalsMark34 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark35
End sub End sub
Dim templateName As String Dim templateName As String
@ -662,7 +662,11 @@ Private Sub setArticleUniqPageStyles(i)
&apos;Iterate article page number &apos;Iterate article page number
articlePageNum = articlePageNum + 1 articlePageNum = articlePageNum + 1
&apos;GO TO NEXT PAGE &apos;GO TO NEXT PAGE
oViewCursor.jumpToNextPage() If Not oViewCursor.jumpToNextPage() Then
MsgBox &quot;setArticleUniqPageStyles failed&quot;
End
EndIf
curPageStyleName = getNextPageStyleName() curPageStyleName = getNextPageStyleName()
Loop Loop