1 files changed, 31 insertions, 9 deletions
diff --git a/wizards/source/webwizard/Language.xba b/wizards/source/webwizard/Language.xba
index a3c8bc66fdb0..c1d5eadee5a0 100644
--- a/wizards/source/webwizard/Language.xba
+++ b/wizards/source/webwizard/Language.xba
@@ -3,6 +3,8 @@
 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
 
 
+
+
 Sub LoadLanguage()
 	If InitResources(&quot;WebWizard&quot;,&quot;wwz&quot;) Then
 		WebWiz_gErrContentNotFound = GetResText(1101)
@@ -16,16 +18,38 @@ Sub LoadLanguage()
 End Sub
 
 
-Sub GetPaths
-	TextureDir = GetOfficeSubPath(&quot;Gallery&quot;, &quot;www-back/&quot;)
-	GraphicsDir = GetOfficeSubPath(&quot;Gallery&quot;, &quot;www-graf/&quot;)
-	BulletDir = GetOfficeSubPath(&quot;Gallery&quot;, &quot;bullets/&quot;)
-	PhotosDir = GetPathSettings(&quot;Gallery&quot;, False, 1)
-End Sub
+Function GetWebWizardPaths() as Boolean
+Dim TemplatePath as String
+	TextureDir = GetOfficeSubPath(&quot;Gallery&quot;,&quot;www-back&quot;)
+		If TextureDir &lt;&gt; &quot;&quot; Then
+			GraphicsDir = GetOfficeSubPath(&quot;Gallery&quot;,&quot;www-graf/&quot;)
+			If GraphicsDir &lt;&gt; &quot;&quot; Then
+				BulletDir = GetOfficeSubPath(&quot;Gallery&quot;, &quot;bullets/&quot;)
+				If BulletDir &lt;&gt; &quot;&quot; Then
+					PhotosDir = GetPathSettings(&quot;Gallery&quot;, False, 1)
+					If PhotosDir &lt;&gt; &quot;&quot; Then
+						TemplatePath = GetOfficeSubPath(&quot;Template&quot;, &quot;wizard/web/&quot;)
+						If TemplatePath &lt;&gt; &quot;&quot; Then
+							SOBitmapPath = GetOfficeSubPath(&quot;Template&quot;, &quot;wizard/bitmap&quot;)
+							If SOBitmapPath &lt;&gt; &quot;&quot; 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
+	GetWebWizardPaths() = False
+End Function
+
 
 
 Sub OpenWebDialog()
-	Dim SOBitmapPath,sBitmapPath as String
+	Dim sBitmapPath as String
 	Dim BufferNames() as String
 	Dim SelList(0) as Integer
 	SelList(0) = 0
@@ -52,8 +76,6 @@ Sub OpenWebDialog()
 	BufferNames() = ArrayfromMultiArray(Style, 1)
 	DialogModel.lbStyles.StringItemList() = BufferNames()
 	DialogModel.lbStyles.SelectedItems() = SelList()
-
-	SOBitmapPath = GetOfficeSubPath(&quot;Template&quot;, &quot;wizard/bitmap&quot;)
 	sBitmapPath = SOBitmapPath &amp; &quot;webwizard.bmp&quot;
 
 	DialogModel.ImagePreview.ImageURL = sBitmapPath