#95287# New Typename for saving added

1 files changed, 8 insertions, 8 deletions

diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba
index aed946d168aa..c1c8a91a14cd 100644
--- a/wizards/source/formwizard/FormWizard.xba
+++ b/wizards/source/formwizard/FormWizard.xba
@@ -64,7 +64,7 @@ Dim i as Integer
 Dim SelCount as Integer
 	BasicLibraries.LoadLibrary("Tools")
 	BasicLibraries.LoadLibrary("WebWizard")
-	bDebug = False
+	bDebug = True
 	If Not bDebug Then
 		On Local Error GoTo WIZARDERROR
 	End If
@@ -299,9 +299,9 @@ End Sub
 
 Sub StoreForm()
 Dim bDocIsStored as Boolean
-Dim FilterNames(0,2) as String
+Dim TypeNames(0,2) as String
 Dim oMasterKey as Object
-Dim oFilters() as Object
+Dim oTypes() as Object
 Dim sTargetPath as String
 Dim sBookmarkName as String
 Dim oDBBookmarks as Object		
@@ -309,11 +309,11 @@ Dim bLinkExists as Boolean
 Dim i as Integer	
 Dim sBaseBookmarkName as String
 	oMasterKey = GetRegistryKeyContent("org.openoffice.Office.TypeDetection/")
-	oFilters() = oMasterKey.Filters
-	FilterNames(0,0) = oFilters.GetByName("swriter: StarOffice XML (Writer)").UIName
-	FilterNames(0,1) = "*.sxw"
-	FilterNames(0,2) = ""
-	sTargetPath = StoreDocument(oDocument, FilterNames(), "Form_" & sDBName & "_" & TableName & ".sxw", WorkPath)
+	oTypes() = oMasterKey.Types
+	TypeNames(0,0) = oTypes.GetByName("writer_StarOffice_XML_Writer").UIName
+	TypeNames(0,1) = "*.sxw"
+	TypeNames(0,2) = ""
+	sTargetPath = StoreDocument(oDocument, TypeNames(), "Form_" & sDBName & "_" & TableName & ".sxw", WorkPath)
 	If sTargetPath <> "" Then
 		sBookmarkName = GetFileNamewithoutExtension(FileNameoutofPath(sTargetPath))
 		sBaseBookmarkName = sBookmarkName