From 2fd1adc5bcef0db036604e87b8e90ed8960dc626 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Thu, 12 Mar 2020 19:13:33 +0100
Subject: [PATCH] More fixes

---
 ePublishing/Hyphenations.xba | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/ePublishing/Hyphenations.xba b/ePublishing/Hyphenations.xba
index b32ff68..21568c2 100644
--- a/ePublishing/Hyphenations.xba
+++ b/ePublishing/Hyphenations.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="Hyphenations" script:language="StarBasic">Private Sub markHyph3
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Hyphenations" script:language="StarBasic">Private Sub markHyph4
 End sub
 
 Private Sub convertHyphInDoc()
@@ -139,7 +139,7 @@ Private Sub convertParaHyphens(para)
 			replaceHyphen(autoHyphens(i),lineNumbers(i))
 		Next i
 	EndIf
-&apos;	verifyHyphenation(lineEnds,lineShifts)
+	verifyHyphenation(lineEnds)
 
 End Sub
 
@@ -157,6 +157,11 @@ Private Sub verifyHyphenation(lineEnds() As Object)
 		Stop
 	  EndIf
 	Next i
+&apos;	dim description as String
+&apos;	description = &quot;Проверка прошла успешно&quot;
+&apos;	If NOT confirm(description) Then
+&apos;		Stop
+&apos;	EndIf
 End Sub
 
 
@@ -230,6 +235,8 @@ Private Sub compressLine(tCurs As Object)
   	   tPortion = vCurs.Text.createTextCursorByRange(startPosition)
   	   tPortion.goToRange(tLine.Start,true)
   	   addToArray(textPortions(),tPortion)
+	Else 
+	  addToArray(textPortions(),tLine)
 	EndIf
 	
 	vCurs.goToRange(tCurs,false)
@@ -412,4 +419,4 @@ Private Function confirm(description)
 	EndIf
 	
 End Function
-</script:module>
+</script:module>
\ No newline at end of file