diff options
Diffstat (limited to 'wizards/source/formwizard/FormWizard.xba')
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 8 |
1 files changed, 3 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() |