From 15a423b3c44e53b8e972f42f8f2af2071abd004f Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Fri, 8 May 2020 17:17:01 +0200
Subject: [PATCH] new version

---
 description.xml         |  2 +-
 ePublishing/Archive.xba | 14 ++++++--------
 epublishing.update.xml  |  4 ++--
 3 files changed, 9 insertions(+), 11 deletions(-)

diff --git a/description.xml b/description.xml
index 40ea577..0ddf172 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.5.8" />
+  <version value="0.5.9" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>
diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba
index 032820e..10ff7fe 100644
--- a/ePublishing/Archive.xba
+++ b/ePublishing/Archive.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="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark9
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark10
 
 End Sub
 
@@ -193,19 +193,19 @@ sub convertIndesignPageBreaks
 	MsgBox getTranslation(&quot;convertIndesignPageBreaksFinish&quot;)
 end Sub
 
-Sub adjustLastLine(oTextCursor)
+Sub adjustLastLine(oTextCursor As Object)
   	oTextCursor.ParaAdjust = 2
   	oTextCursor.ParaLastLineAdjust = 2
   	balancePara(oTextCursor)
 End Sub
 
-Sub adjustFirstLine(oTextCursor)
+Sub adjustFirstLine(oTextCursor As Object)
   	oTextCursor.goRight(1,false)
    	oTextCursor.ParaFirstLineIndent = 0
 End Sub
 
 
-Function isLowerCase(character) As Boolean
+Function isLowerCase(character As String) As Boolean
 	Dim charNum As Integer
 	If (character = &quot;&quot;) Then
 	  charNum = ASC(&quot;&quot;+0)
@@ -219,7 +219,7 @@ Function isLowerCase(character) As Boolean
     isLowerCase = false
 End Function
 
-Sub balancePara(Optional targetPara As Object)
+Sub balancePara(targetPara As Object)
 &apos;	Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
 	Dim oViewCursor As Object
 	Dim oTextCursor As Object
@@ -238,9 +238,7 @@ Sub balancePara(Optional targetPara As Object)
 	initialLineCount = 0
 	
 	oViewCursor = ThisComponent.CurrentController.getViewCursor()
-	If NOT IsMissing(targetPara) Then
-		oViewCursor.goToRange(targetPara, false)
-	EndIf
+	oViewCursor.goToRange(targetPara, false)
 
 	oTextCursor = oViewCursor.Text.createTextCursorByRange(oViewCursor)
 	oPara = oViewCursor.Text.createTextCursorByRange(oViewCursor)
diff --git a/epublishing.update.xml b/epublishing.update.xml
index 16fe2c1..4c5a940 100644
--- a/epublishing.update.xml
+++ b/epublishing.update.xml
@@ -2,9 +2,9 @@
 <description xmlns="http://openoffice.org/extensions/update/2006" 
              xmlns:xlink="http://www.w3.org/1999/xlink">
     <identifier value="pro.litvinovg.epublishing"/>
-    <version value="0.5.8" />
+    <version value="0.5.9" />
     <update-download>
-        <src xlink:href="https://dev.litvinovg.pro/litvinovg/epublishing/uploads/80ff2b1887d50df27b4e0d1a1d616a0e/ePublishing.oxt" />
+        <src xlink:href="https://dev.litvinovg.pro/litvinovg/epublishing/uploads/f468e6b9a01e9a1c5f81913dc95f9507/ePublishing.oxt" />
     </update-download>
     <release-notes>
         <src xlink:href="https://dev.litvinovg.pro/litvinovg/epublishing/-/raw/master/releasenotes.txt" lang="en" />