summaryrefslogtreecommitdiff
path: root/wizards/source/formwizard
diff options
context:
space:
mode:
Diffstat (limited to 'wizards/source/formwizard')
-rw-r--r--wizards/source/formwizard/FormWizard.xba8
-rw-r--r--wizards/source/formwizard/tools.xba26
2 files changed, 29 insertions, 5 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba
index ecd888a770b3..2464769f9c2b 100644
--- a/wizards/source/formwizard/FormWizard.xba
+++ b/wizards/source/formwizard/FormWizard.xba
@@ -81,11 +81,9 @@ Dim SelList(0) as Integer
End If
oDBContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
oUcb = createUnoService("com.sun.star.ucb.SimpleFileAccess")
- FormPath = GetOfficeSubPath("Template","wizard/bitmap")
- WebWizardPath = GetOfficeSubPath("Template","wizard/web")
- WizardPath = GetOfficeSubPath("Template","wizard/")
- TexturePath = GetOfficeSubPath("Gallery", "www-back/")
- WorkPath = GetPathSettings("Work")
+ If GetFormWizardPaths() = False Then
+ Exit Sub
+ End If
oDocument.GetCurrentController().Frame.ComponentWindow.Enable = False
oProgressBar.Value = 5
GetDatabaseNames()
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba
index 7d457fb4aa79..63af3bff9393 100644
--- a/wizards/source/formwizard/tools.xba
+++ b/wizards/source/formwizard/tools.xba
@@ -299,4 +299,30 @@ Function GetDBHeight(oDBModel as Object)
End If
GetDBHeight() = nDBHeight
End Function
+
+
+Function GetFormWizardPaths() as Boolean
+ FormPath = GetOfficeSubPath("Template","wizard/bitmap")
+ If FormPath <> "" Then
+ WebWizardPath = GetOfficeSubPath("Template","wizard/web")
+ If WebWizardPath <> "" Then
+ WizardPath = GetOfficeSubPath("Template","wizard/")
+ If Wizardpath <> "" Then
+ TexturePath = GetOfficeSubPath("Gallery", "www-back/")
+ If TexturePath <> "" Then
+ WorkPath = GetPathSettings("Work")
+ If WorkPath <> "" Then
+ GetFormWizardPaths = True
+ Exit Function
+ End If
+ End If
+ End If
+ End If
+ End If
+ If Not IsNull(oDocument) Then
+ oDocument.dispose()
+ End If
+ GetFormWizardPaths() = False
+End Function
+
</script:module> \ No newline at end of file