diff options
| author | Behrend Cornelius <bc@openoffice.org> | 2002-11-06 14:23:39 +0000 |
|---|---|---|
| committer | Behrend Cornelius <bc@openoffice.org> | 2002-11-06 14:23:39 +0000 |
| commit | 19a419728424f083b0184bf2e56cab1151c4cffa (patch) | |
| tree | 6f36cdaf0dc3e9d7e5075e742e47e0ba3a197e6a | |
| parent | 4b46688737fb83c75e40111e2a56f1e5df0b3808 (diff) | |
#10710# GetFormWizardPaths Routine added
| -rw-r--r-- | wizards/source/formwizard/FormWizard.xba | 8 | ||||
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 26 |
2 files changed, 29 insertions, 5 deletions
diff --git a/wizards/source/formwizard/FormWizard.xba b/wizards/source/formwizard/FormWizard.xba index ecd888a77..2464769f9 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 7d457fb4a..63af3bff9 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 |