c2dca9b
From 62bd29f398c11956983288ae6dd109147cc2c094 Mon Sep 17 00:00:00 2001
c2dca9b
From: =?UTF-8?q?Caol=C3=A1n=20McNamara?= <caolanm@redhat.com>
c2dca9b
Date: Wed, 8 Feb 2012 12:38:10 +0000
c2dca9b
Subject: [PATCH] Resolves: fdo#43644 survive registered but unavailable
c2dca9b
 binfilter
c2dca9b
c2dca9b
---
c2dca9b
 wizards/source/importwizard/Main.xba |   13 ++++++++++++-
c2dca9b
 1 files changed, 12 insertions(+), 1 deletions(-)
c2dca9b
c2dca9b
diff --git a/wizards/source/importwizard/Main.xba b/wizards/source/importwizard/Main.xba
c2dca9b
index 8084fda..7385c6b 100644
c2dca9b
--- a/wizards/source/importwizard/Main.xba
c2dca9b
+++ b/wizards/source/importwizard/Main.xba
c2dca9b
@@ -44,7 +44,7 @@ Sub Main()
c2dca9b
 	ImportDialog.ImportPreview.BackGroundColor = RGB(0,60,126)	
c2dca9b
 	ImportDialog.cmdGoOn.DefaultButton = True
c2dca9b
 	ImportDialogArea.GetControl("optMSDocuments").SetFocus()
c2dca9b
-	oBinFilterComp = createUnoService( "com.sun.star.comp.office.BF_MigrateFilter" )
c2dca9b
+	oBinFilterComp = createBF_MigrateFilterIfPossible()
c2dca9b
 	ToggleCheckboxesWithBoolean(True)
c2dca9b
 
c2dca9b
 	RetValue = ImportDialogArea.Execute()
c2dca9b
@@ -186,6 +186,17 @@ Dim i as Integer
c2dca9b
 End Sub
c2dca9b
 
c2dca9b
 
c2dca9b
+Function createBF_MigrateFilterIfPossible()
c2dca9b
+Dim oService
c2dca9b
+    On Error Goto RTError
c2dca9b
+    oService = createUnoService("com.sun.star.comp.office.BF_MigrateFilter")
c2dca9b
+    getBinFilterCompIfItExists = oService
c2dca9b
+    Exit Function
c2dca9b
+RTError:
c2dca9b
+    createBF_MigrateFilterIfPossible = Nothing
c2dca9b
+End Function
c2dca9b
+
c2dca9b
+
c2dca9b
 Function CheckInstalledModule(Index as Integer) as Boolean
c2dca9b
 Dim ModuleName as String
c2dca9b
 Dim NameList() as String
c2dca9b
-- 
c2dca9b
1.7.7.6
c2dca9b