From d05aed70d6141d7cfdbe098a4fdfef93d762d768 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Mon, 23 Aug 2021 18:52:23 +0200
Subject: [PATCH] fix: fixed footnote sign position while converting from links

---
 ePublishing/Archive.xba | 14 ++------------
 1 file changed, 2 insertions(+), 12 deletions(-)

diff --git a/ePublishing/Archive.xba b/ePublishing/Archive.xba
index 538899e..cafb607 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 archMark21
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark22
 
 End Sub
 
@@ -484,6 +484,7 @@ Function isLowerCase(character As String) As Boolean
     isLowerCase = false
 End Function
 
+
 Sub balancePara(targetPara As Object)
 &apos;	Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
 	Dim oViewCursor As Object
@@ -709,8 +710,6 @@ Function calculateMedianParaLen(oPara As Object) As Integer
 	EndIf
 End Function
 
-
-
 Sub convertBookmarksToFootnotes()
 	Dim description As String
 	description = getTranslation(&quot;convertIndesignFoonotesConfirmation&quot;)
@@ -749,9 +748,7 @@ Sub convertBookmarksToFootnotes()
 			EndIf
 			convertLinkToFootnote(forwardLink,backwardLink)
 		EndIf
-			
 	Next i
-	
 	resetNotesStyle
 	MsgBox getTranslation(&quot;convertIndesignFootnotesFinish&quot;)
 End Sub
@@ -831,13 +828,6 @@ Sub removeFootnoteSignInText
       character = oViewCursor.String
 	Loop
 	oViewCursor.goRight(1,true)
-	character = oViewCursor.String
-	Do While isLinkCharacter(character)
-	  oViewCursor.String = &quot;&quot;
-      oViewCursor.goRight(1,true)
-      character = oViewCursor.String
-	Loop
-	oViewCursor.goRight(1,false)
 End Sub
 
 Function isLinkCharacter(character As String) As Boolean