From 25372f07a247a5a4e08d307e72c3d1dd1093c796 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Mon, 12 Jul 2021 18:04:20 +0200
Subject: [PATCH] Safe go to range with controller select

---
 description.xml          | 2 +-
 ePublishing/journals.xba | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/description.xml b/description.xml
index 910af21..ea8d741 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.4" />
+  <version value="0.7.5" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>
diff --git a/ePublishing/journals.xba b/ePublishing/journals.xba
index cbe81bd..e0b3d38 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 journalsMark28
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="journals" script:language="StarBasic">Private sub journalsMark31
 End sub
 
 Dim templateName As String
@@ -228,7 +228,7 @@ Private Function getUDK()
 		backspace
 		sendRM
 	End If
-	oViewCursor.goToRange(oSavePosition, false)
+	Thiscomponent.CurrentController.select(oSavePosition)
 End Function
 
 Private Function getCopyright()
@@ -1622,4 +1622,4 @@ Function getPageNumber(cursor As Object) As String
 End Function 
 
 
-</script:module>
+</script:module>
\ No newline at end of file