diff options
Diffstat (limited to 'wizards/source/webwizard/Language.xba')
-rw-r--r-- | wizards/source/webwizard/Language.xba | 30 |
1 files changed, 14 insertions, 16 deletions
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba index c1d5eadee5a0..f91ed9bbce9e 100644 --- a/wizards/source/webwizard/Language.xba +++ b/wizards/source/webwizard/Language.xba @@ -21,28 +21,26 @@ End Sub Function GetWebWizardPaths() as Boolean Dim TemplatePath as String TextureDir = GetOfficeSubPath("Gallery","www-back") - If TextureDir <> "" Then - GraphicsDir = GetOfficeSubPath("Gallery","www-graf/") - If GraphicsDir <> "" Then - BulletDir = GetOfficeSubPath("Gallery", "bullets/") - If BulletDir <> "" Then - PhotosDir = GetPathSettings("Gallery", False, 1) - If PhotosDir <> "" Then - TemplatePath = GetOfficeSubPath("Template", "wizard/web/") - If TemplatePath <> "" Then - SOBitmapPath = GetOfficeSubPath("Template", "wizard/bitmap") - If SOBitmapPath <> "" Then - GetWebwizardPaths() = True - Exit Function + If TextureDir <> "" Then + GraphicsDir = GetOfficeSubPath("Gallery","www-graf/") + If GraphicsDir <> "" Then + BulletDir = GetOfficeSubPath("Gallery", "bullets/") + If BulletDir <> "" Then + PhotosDir = GetPathSettings("Gallery", False, 1) + If PhotosDir <> "" Then + TemplatePath = GetOfficeSubPath("Template", "wizard/web/") + If TemplatePath <> "" Then + SOBitmapPath = GetOfficeSubPath("Template", "wizard/bitmap") + If SOBitmapPath <> "" Then + GetWebwizardPaths() = True + Exit Function End If - End If End If End If End If End If - If Not IsNull(oDocument) Then - oBaseDocument.dispose() End If + DisposeDocument(oBaseDocument) GetWebWizardPaths() = False End Function |