diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-27 16:59:30 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2003-03-27 16:59:30 +0000 |
| commit | 6652c8336ff201af224d6c0b787f5d79ec4f1810 (patch) | |
| tree | 794890c79560e699edb06e59868357a5a5f68da0 /wizards/source/template/Correspondence.xba | |
| parent | 0f757610e5cb4de88a9ef20a7563f9da2973f6ee (diff) | |
MWS_SRX644: migrate branch mws_srx644 -> HEAD
Diffstat (limited to 'wizards/source/template/Correspondence.xba')
| -rw-r--r-- | wizards/source/template/Correspondence.xba | 24 |
1 files changed, 15 insertions, 9 deletions
diff --git a/wizards/source/template/Correspondence.xba b/wizards/source/template/Correspondence.xba index 3c391d8332b0..a6b42434b79e 100644 --- a/wizards/source/template/Correspondence.xba +++ b/wizards/source/template/Correspondence.xba @@ -63,7 +63,9 @@ Dim oAddressDialog as Object Dim oAddressPilot as Object Dim oFields as Object Dim oDocSettings as Object - On Local Error Goto GENERALERROR +Dim oContext as Object +Dim bDBvalid as Boolean + 'On Local Error Goto GENERALERROR bDBFields = DialogModel.Optmerge.State 'database or placeholder TemplateDialog.EndExecute() @@ -73,14 +75,18 @@ Dim oDocSettings as Object oDBAccess = GetRegistryKeyContent("org.openoffice.Office.DataAccess/AddressBook/") sAddressbook = oDBAccess.DataSourceName - If sAddressbook = "" Then 'If there is no field mapping - If Not odBAccess.AutoPilotCompleted Then 'If the Mapping Pilot never ran - oAddressPilot = createUnoService("com.sun.star.ui.dialogs.AddressBookSourcePilot") - oAddressPilot.execute - Else - oAddressDialog = CreateUnoService("com.sun.star.ui.AddressBookSourceDialog") - oAddressDialog.execute - End If + bDBvalid = false + oContext = createUnoService( "com.sun.star.sdb.DatabaseContext" ) + + If (not isNull(oContext)) Then + 'Is the previously assigned address data source still valid? + bDBvalid = oContext.hasByName(sAddressbook) + end if + + If (bDBvalid = false) Then + oAddressPilot = createUnoService("com.sun.star.ui.dialogs.AddressBookSourcePilot") + oAddressPilot.execute + oDBAccess = GetRegistryKeyContent("org.openoffice.Office.DataAccess/AddressBook/") sAddressbook = oDBAccess.DataSourceName If sAddressbook = "" Then |