TOC Links creation improved

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.6.9" />
+  <version value="0.6.10" />
   <platform value="all" />
   <display-name>
     <name lang="ru">Инструменты для создания электронных изданий</name>

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 archMark15
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Archive" script:language="StarBasic" script:moduleType="normal">Sub archMark17
 
 End Sub
 
@@ -83,18 +83,22 @@ Sub createLink(targetRange as Object,linkName as String,linkURL as String)
 	dispatcher = createUnoService(&quot;com.sun.star.frame.DispatchHelper&quot;)
 	oViewCursor = ThisComponent.CurrentController.getViewCursor()
 	oViewCursor.gotoRange(targetRange,false)
-	dim args2(4) as new com.sun.star.beans.PropertyValue
+	&apos;Globalscope.BasicLibraries.LoadLibrary( &quot;MRILib&quot; )
-	args2(0).Name = &quot;Hyperlink.Text&quot;
+	&apos;Mri oViewCursor
-	args2(0).Value = linkName
+	oViewCursor.HyperlinkURL = &quot;#&quot; &amp; linkURL
-	args2(1).Name = &quot;Hyperlink.URL&quot;
+	oViewCursor.HyperLinkName = linkName
-	args2(1).Value = &quot;#&quot;+linkURL
+	&apos;dim args2(4) as new com.sun.star.beans.PropertyValue
-	args2(2).Name = &quot;Hyperlink.Target&quot;
+	&apos;args2(0).Name = &quot;Hyperlink.Text&quot;
-	args2(2).Value = &quot;&quot;
+	&apos;args2(0).Value = linkName
-	args2(3).Name = &quot;Hyperlink.Name&quot;
+	&apos;args2(1).Name = &quot;Hyperlink.URL&quot;
-	args2(3).Value = linkName
+	&apos;args2(1).Value = &quot;#&quot;+linkURL
-	args2(4).Name = &quot;Hyperlink.Type&quot;
+	&apos;args2(2).Name = &quot;Hyperlink.Target&quot;
-	args2(4).Value = 1
+	&apos;args2(2).Value = &quot;&quot;
-	dispatcher.executeDispatch(document, &quot;.uno:SetHyperlink&quot;, &quot;&quot;, 0, args2())
+	&apos;args2(3).Name = &quot;Hyperlink.Name&quot;
+	&apos;args2(3).Value = linkName
+	&apos;args2(4).Name = &quot;Hyperlink.Type&quot;
+	&apos;args2(4).Value = 1
+	&apos;dispatcher.executeDispatch(document, &quot;.uno:SetHyperlink&quot;, &quot;&quot;, 0, args2())
 End Sub
 
 Function RND_String

ePublishing/TOCLinks.xba

@@ -5,7 +5,7 @@
 	For i = 1 To 10
 		makeLinksWithLevel(i)
 	Next i
-
+	MsgBox (getTranslation("OutlineLinksFinished"))
 End Sub
 
 

ePublishing/Translations.xba

@@ -249,6 +249,9 @@ Function getRussian(identifier As String) As String
         Exit Function
       Case "allPagesHaveUniqPageStyle"
         getRussian = "Каждой странице в документе назначен уникальный стиль"
+        Exit Function
+      Case "OutlineLinksFinished"
+        getRussian = "Создание ссылок в оглавлении завершено. Если этому сообщению предшествовали предупреждения об ошибках, то после исправления ошибок запустите создание ссылок заново."
         Exit Function
 	  Case Else
 	    getRussian = "Перевод не найден"
@@ -479,6 +482,9 @@ Function getEnglish(identifier As String) As String
         Exit Function
       Case "allPagesHaveUniqPageStyle"
         getEnglish = "Every page in document now have unique page style"
+        Exit Function
+	  Case "OutlineLinksFinished"
+        getEnglish = "Creating links in the table of contents is complete. If this message was preceded by error warnings, then after correcting the errors, restart creating links in table of contents."
         Exit Function
 	  Case Else
 	    getEnglish = "No translation"
@@ -709,6 +715,9 @@ Function getFrench(identifier As String) As String
       Case "allPagesHaveUniqPageStyle"
          getFrench = "Un style unique est attribué à chaque page du document"
          Exit Function
+      Case "OutlineLinksFinished"
+        getFrench = "La création de liens dans la table des matières est terminée. Si ce message a été précédé d'avertissements d'erreur, après avoir corrigé les erreurs, recommencez à créer des liens."
+        Exit Function
 	  Case Else
 	    getFrench = "No translation"
 	End Select  
@@ -938,6 +947,9 @@ Function getCroatian(identifier As String) As String
       Case "allPagesHaveUniqPageStyle"
          getCroatian = "Svakoj stranici u dokumentu dodeljen je jedinstveni stil."
          Exit Function
+      Case "OutlineLinksFinished"
+        getCroatian = "Stvaranje veza u sadržaju je završeno. Ako su ovoj poruci prethodila upozorenja o pogrešci, počnite stvarati veze nakon ispravljanja pogrešaka."
+        Exit Function
 	  Case Else
 	    getCroatian = "No translation"
 	End Select  
@@ -1167,6 +1179,9 @@ Function getSerbian(identifier As String) As String
       Case "allPagesHaveUniqPageStyle"
          getSerbian = "Свакој страници у документу додељен је јединствени стил."
          Exit Function
+      Case "OutlineLinksFinished"
+        getSerbian = "Стварање веза у табели садржаја је завршено. Ако су овој поруци претходила упозорења о грешци, након исправљања грешака поново почните стварати везе."
+        Exit Function
 	  Case Else
 	    getSerbian = "No translation"
 	End Select  
@@ -1396,6 +1411,9 @@ Function getBosnian(identifier As String) As String
       Case "allPagesHaveUniqPageStyle"
          getBosnian = "Svakoj stranici u dokumentu dodeljen je jedinstveni stil."
          Exit Function
+      Case "OutlineLinksFinished"
+        getBosnian = "Stvaranje veza u sadržaju je završeno. Ako su ovoj poruci prethodila upozorenja o pogrešci, počnite stvarati veze nakon ispravljanja pogrešaka."
+        Exit Function
 	  Case Else
 	    getBosnian = "No translation"
 	End Select