Forbid creating bidirectional links with empty text

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 archMark17
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark18
 
 End Sub
 
@@ -53,6 +53,11 @@ Sub createBidirectLink
 	
 	oAnchor1 = oSelections.getByIndex(1)
 	oAnchor2 = oSelections.getByIndex(2)
+	If isAnchorEmpty(oAnchor1) Or isAnchorEmpty(oAnchor2) Then
+	  MsgBox getTranslation(&quot;bidirectLinkSuggestion&quot;)
+	  Exit Sub
+	EndIf
+	
 	oAnchor1Name = RND_String()
 	oAnchor2Name = RND_String()
 	createAnchor(oAnchor1,oAnchor1Name)
@@ -61,6 +66,22 @@ Sub createBidirectLink
 	createLink(oAnchor2,oAnchor2.String,oAnchor1Name)
 End Sub
 
+Function isAnchorEmpty(anchor As Object) As Boolean
+   Dim anchorName As String
+   anchorName = trim(anchor.String)
+   If Len(anchorName) = 0 Then
+     isAnchorEmpty = true
+     Exit Function
+   EndIf
+   If Len(anchorName) = 1 AND Chr(10) = anchorName Then
+     isAnchorEmpty = true
+     Exit Function
+   EndIf
+   
+   isAnchorEmpty = false
+End Function
+
+
 Sub createAnchor(targetRange as Object,anchorName as String)
 	dim oViewCursor as object
 	dim document   as object

ePublishing/Translations.xba

@@ -65,7 +65,7 @@ Function getRussian(identifier As String) As String
          getRussian = "Заменить стиль параграфа (с удалением) на выбранный стиль"
          Exit Function
       Case "bidirectLinkSuggestion"
-         getRussian = "Нужно выделить два объекта для связывания"
+         getRussian = "Выделите два непустых отрывка текста для связывания"
          Exit Function
       Case "convertIndesignPageBreaksConfirmation"
          getRussian = "Запустить восстановление разрывов страниц?"
@@ -298,7 +298,7 @@ Function getEnglish(identifier As String) As String
          getEnglish = "Replace paragraph style (with removal) by choosen one"
          Exit Function
       Case "bidirectLinkSuggestion"
-         getEnglish = "You should select two objects to link"
+         getEnglish = "Select two not empty text excerpts to create bidirectional links"
          Exit Function
       Case "convertIndesignPageBreaksConfirmation"
          getEnglish = "Start page break conversion from text?"