From f39f25b053cfc76fafe2bd6d278c0d5c67952421 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Fri, 27 Aug 2021 12:13:31 +0200
Subject: [PATCH] fix: exit if excerption happened while compiling journal

---
 description.xml          | 2 +-
 ePublishing/journals.xba | 8 ++++++--
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/description.xml b/description.xml
index bf85514..f4313d0 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">
   <identifier value="pro.litvinovg.epublishing" />
-  <version value="0.7.7" />
+  <version value="0.7.8" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>
diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba
index 55f6002..298052b 100644
--- a/ePublishing/journals.xba
+++ b/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 journalsMark34
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark35
 End sub
 
 Dim templateName As String
@@ -662,7 +662,11 @@ Private Sub	setArticleUniqPageStyles(i)
 		&apos;Iterate article page number
 		articlePageNum = articlePageNum + 1
 		&apos;GO TO NEXT PAGE
-		oViewCursor.jumpToNextPage()
+		If Not oViewCursor.jumpToNextPage() Then
+			MsgBox &quot;setArticleUniqPageStyles failed&quot;
+			End
+
+		EndIf
 		curPageStyleName = getNextPageStyleName()
 	Loop