Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 303 insertions, 0 deletions

diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba
new file mode 100644
index 000000000..01da7f3d8
--- /dev/null
+++ b/wizards/source/template/Correspondence.xba
@@ -0,0 +1,303 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
+<!--
+ * This file is part of the LibreOffice project.
+ *
+ * This Source Code Form is subject to the terms of the Mozilla Public
+ * License, v. 2.0. If a copy of the MPL was not distributed with this
+ * file, You can obtain one at http://mozilla.org/MPL/2.0/.
+ *
+ * This file incorporates work covered by the following license notice:
+ *
+ *   Licensed to the Apache Software Foundation (ASF) under one or more
+ *   contributor license agreements. See the NOTICE file distributed
+ *   with this work for additional information regarding copyright
+ *   ownership. The ASF licenses this file to you under the Apache
+ *   License, Version 2.0 (the "License"); you may not use this file
+ *   except in compliance with the License. You may obtain a copy of
+ *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
+-->
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Correspondence" script:language="StarBasic">Option Explicit
+
+Public msgNoTextmark$, msgError$
+Public sAddressbook$
+Public Table
+Public sCompany$, sFirstName$, sLastName$, sStreet$, sPostalCode$, sCity$, sState$, sInitials$, sPosition$
+Public DialogExited
+Public oDocument, oText, oBookMarks, oBookMark, oBookMarkCursor, oBookText as Object
+Public bTemplate, bDBFields as Boolean
+
+Sub Main
+	bTemplate = true
+    BasicLibraries.LoadLibrary(&quot;Tools&quot;)
+	TemplateDialog = LoadDialog(&quot;Template&quot;, &quot;TemplateDialog&quot;)
+	DialogModel = TemplateDialog.Model
+	DialogModel.Step = 2
+	DialogModel.Optmerge.State = True
+	LoadLanguageCorrespondence()	
+	TemplateDialog.Execute
+	TemplateDialog.Dispose()
+End Sub
+
+
+Sub Placeholder
+	bTemplate = false
+	BasicLibraries.LoadLibrary(&quot;Tools&quot;)
+	LoadLanguageCorrespondence()
+	bDBFields = false
+	OK()
+End Sub
+
+
+Sub Database
+	bTemplate = false
+	BasicLibraries.LoadLibrary(&quot;Tools&quot;)
+	LoadLanguageCorrespondence()
+	bDBFields = true
+	OK()
+End Sub
+
+
+Function LoadLanguageCorrespondence() as Boolean
+	If InitResources(&quot;&apos;Template&apos;&quot;) Then
+		msgNoTextmark$ = GetResText(&quot;CorrespondenceDialog_0&quot;) &amp; Chr(13) &amp; Chr(10) &amp; GetResText(&quot;CorrespondenceNoTextmark_1&quot;)
+		msgError$ = GetResText(&quot;CorrespondenceMsgError&quot;)
+		If bTemplate Then
+			DialogModel.Title = GetResText(&quot;CorrespondenceDialog_3&quot;)
+			DialogModel.CmdCancel.Label = GetResText(&quot;STYLES_2&quot;)
+			DialogModel.CmdCorrGoOn.Label = GetResText(&quot;STYLES_3&quot;)
+			DialogModel.OptSingle.Label = GetResText(&quot;CorrespondenceDialog_1&quot;)
+			DialogModel.Optmerge.Label = GetResText(&quot;CorrespondenceDialog_2&quot;)
+			DialogModel.FrmLetter.Label = GetResText(&quot;CorrespondenceDialog_0&quot;)
+		End If
+		LoadLanguageCorrespondence() = True
+	Else
+		msgbox(&quot;Warning: Resource could not be loaded!&quot;)
+	End If
+End Function
+
+
+Function GetFieldName(oFieldKnot as Object, GeneralFieldName as String)
+	If oFieldKnot.HasByName(GeneralFieldName) Then
+    GetFieldName = oFieldKnot.GetByName(GeneralFieldName).AssignedFieldName
+	Else
+		GetFieldName = &quot;&quot;
+	End If
+End Function
+
+
+Sub OK
+Dim ParaBreak
+Dim sDocLang as String
+Dim oSearchDesc as Object
+Dim oFoundAll as Object
+Dim oFound as Object
+Dim sFoundContent as String
+Dim sFoundString as String
+Dim sDBField as String
+Dim i as Integer
+Dim oDBAccess as Object
+Dim oAddressDialog as Object
+Dim oAddressPilot as Object
+Dim oFields as Object
+Dim oDocSettings as Object
+Dim oContext as Object
+Dim bDBvalid as Boolean
+	&apos;On Local Error Goto GENERALERROR
+	
+	If bTemplate Then
+		bDBFields = DialogModel.Optmerge.State              &apos;database or placeholder
+		TemplateDialog.EndExecute()
+		DialogExited = TRUE
+	End If
+	
+	If bDBFields Then
+		oDBAccess = GetRegistryKeyContent(&quot;org.openoffice.Office.DataAccess/AddressBook/&quot;)
+		sAddressbook = oDBAccess.DataSourceName
+
+		bDBvalid = false
+		oContext = createUnoService( &quot;com.sun.star.sdb.DatabaseContext&quot; )		
+
+		If (not isNull(oContext)) Then 
+			&apos;Is the previously assigned address data source still valid?
+			bDBvalid = oContext.hasByName(sAddressbook)
+		end if
+				
+		If (bDBvalid = false) Then			
+			oAddressPilot = createUnoService(&quot;com.sun.star.ui.dialogs.AddressBookSourcePilot&quot;)
+			oAddressPilot.execute
+			
+			oDBAccess = GetRegistryKeyContent(&quot;org.openoffice.Office.DataAccess/AddressBook/&quot;)
+			sAddressbook = oDBAccess.DataSourceName
+			If sAddressbook = &quot;&quot; Then
+				MsgBox(GetResText(&quot;CorrespondenceNoTextmark_1&quot;))
+				Exit Sub
+			End If
+		End If
+		oFields = oDBAccess.GetByName(&quot;Fields&quot;)
+		Table = oDBAccess.GetByName(&quot;Command&quot;)
+	End If
+
+	ParaBreak = com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK
+  	oDocument = ThisComponent
+	If bDBFields Then
+		&apos;set the address db as current db at the document
+    	oDocSettings = oDocument.createInstance(&quot;com.sun.star.document.Settings&quot;)
+		oDocSettings.CurrentDatabaseDataSource = sAddressbook
+		oDocSettings.CurrentDatabaseCommand = Table
+		oDocSettings.CurrentDatabaseCommandType = 0
+	End If
+	oBookmarks = oDocument.Bookmarks
+	oText = oDocument.Text
+
+	oSearchDesc = oDocument.createsearchDescriptor()
+	oSearchDesc.SearchRegularExpression = True
+	oSearchDesc.SearchWords = True
+	oSearchDesc.SearchString  = &quot;&lt;[^&gt;]+&gt;&quot;
+	oFoundall = oDocument.FindAll(oSearchDesc)
+
+	&apos;Loop over the foundings
+  	For i = oFoundAll.Count -1 To 0 Step -1
+		oFound = oFoundAll.GetByIndex(i)
+		sFoundString = oFound.String
+		&apos;Extract the string inside the brackets
+		sFoundContent = FindPartString(sFoundString,&quot;&lt;&quot;,&quot;&gt;&quot;,1)
+		sFoundContent = LTrim(sFoundContent)
+		&apos; Define the Cursor and place it on the founding
+		oBookmarkCursor = oFound.Text.CreateTextCursorbyRange(oFound)
+		oBookText = oFound.Text
+		If bDBFields Then
+			sDBField = GetFieldname(oFields, sFoundContent)
+			If sDBField &lt;&gt; &quot;&quot; Then
+				InsertDBField(sAddressbook, Table, sDBField)
+			Else
+				InsertPlaceholder(sFoundContent)
+			End If
+		Else
+			InsertPlaceholder(sFoundContent)
+		End If
+	Next i
+	If bDBFields Then
+		&apos;Open the DB beamer with the right DB
+		Dim oDisp as Object
+		Dim oTransformer
+		Dim aURL as new com.sun.star.util.URL
+		aURL.complete = &quot;.component:DB/DataSourceBrowser&quot;
+		oTransformer = createUnoService(&quot;com.sun.star.util.URLTransformer&quot;)
+		oTransformer.parseStrict(aURL)
+		oDisp = oDocument.getCurrentController.getFrame.queryDispatch(aURL, &quot;_beamer&quot;, com.sun.star.frame.FrameSearchFlag.CHILDREN + com.sun.star.frame.FrameSearchFlag.CREATE)
+		Dim aArgs(3) as new com.sun.star.beans.PropertyValue
+		aArgs(1).Name = &quot;DataSourceName&quot;
+		aArgs(1).Value = sAddressbook
+		aArgs(2).Name = &quot;CommandType&quot;
+		aArgs(2).Value = com.sun.star.sdb.CommandType.TABLE
+		aArgs(3).Name = &quot;Command&quot;
+		aArgs(3).Value = Table
+		oDisp.dispatch(aURL, aArgs())
+	End If
+	
+	GENERALERROR:
+	If Err &lt;&gt; 0 Then
+		Msgbox(msgError$,16, GetProductName())
+		Resume LETSGO
+	End If
+	LETSGO:
+
+End Sub
+
+
+Sub InsertDBField(sDBName as String, sTableName as String, sColName as String)
+Dim oFieldMaster, oField as Object
+	If sColname &lt;&gt; &quot;&quot; Then
+		oFieldMaster = oDocument.createInstance(&quot;com.sun.star.text.FieldMaster.Database&quot;)
+		oField = oDocument.createInstance(&quot;com.sun.star.text.TextField.Database&quot;)
+		oFieldMaster.DataBaseName = sDBName
+		oFieldMaster.DataBaseName = sDBName
+		oFieldMaster.DataTableName = sTableName
+		oFieldMaster.DataColumnName = sColName
+		oField.AttachTextfieldmaster (oFieldMaster)
+		oBookText.InsertTextContent(oBookMarkCursor, oField, True)
+		oField.Content = &quot;&lt;&quot; &amp; sColName &amp; &quot;&gt;&quot;
+	End If
+End Sub
+
+
+Sub InsertPlaceholder(sColName as String)
+Dim oFieldMaster as Object
+Dim bCorrectField as Boolean
+	If sColname &lt;&gt; &quot;&quot; Then
+		bCorrectField = True
+		oFieldMaster = oDocument.createInstance(&quot;com.sun.star.text.TextField.JumpEdit&quot;)
+		Select Case sColName
+			Case &quot;Company&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_1&quot;)
+			Case &quot;Department&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_2&quot;)
+			Case &quot;FirstName&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_3&quot;)
+			Case &quot;LastName&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_4&quot;)
+			Case &quot;Street&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_5&quot;)
+			Case &quot;Country&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_6&quot;)
+			Case &quot;Zip&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_7&quot;)
+			Case &quot;City&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_8&quot;)
+			Case &quot;Title&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_9&quot;)
+			Case &quot;Position&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_10&quot;)
+			Case &quot;AddrForm&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_11&quot;)
+			Case &quot;Code&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_12&quot;)
+			Case &quot;AddrFormMail&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_13&quot;)
+			Case &quot;PhonePriv&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_14&quot;)
+			Case &quot;PhoneComp&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_15&quot;)
+			Case &quot;Fax&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_16&quot;)
+			Case &quot;EMail&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_17&quot;)
+			Case &quot;URL&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_18&quot;)
+			Case &quot;Note&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_19&quot;)
+			Case &quot;Altfield1&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_20&quot;)
+			Case &quot;Altfield2&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_21&quot;)
+			Case &quot;Altfield3&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_22&quot;)
+			Case &quot;Altfield4&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_23&quot;)
+			Case &quot;Id&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_24&quot;)
+			Case &quot;State&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_25&quot;)
+			Case &quot;PhoneOffice&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_26&quot;)
+			Case &quot;Pager&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_27&quot;)
+			Case &quot;PhoneCell&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_28&quot;)
+			Case &quot;PhoneOther&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_29&quot;)
+			Case &quot;CalendarURL&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_30&quot;)
+			Case &quot;InviteParticipant&quot;
+				oFieldMaster.PlaceHolder = getResText(&quot;CorrespondenceFields_31&quot;)
+			Case Else
+				bCorrectField = False
+		End Select
+		If bCorrectField Then
+			oFieldMaster.Hint = getResText(&quot;CorrespondenceFields_0&quot;)
+			oBookText.InsertTextContent(oBookMarkCursor, oFieldMaster, True)
+		End If
+	End If
+End Sub
+</script:module>