summaryrefslogtreecommitdiff
path: root/wizards
diff options
context:
space:
mode:
authorBehrend Cornelius <bc@openoffice.org>2002-11-06 14:23:39 +0000
committerBehrend Cornelius <bc@openoffice.org>2002-11-06 14:23:39 +0000
commitbcb3f833e57225e2816a348ecac0b70dad2747a1 (patch)
treebba6b4a76ab29466a03387729c41f3bf02b52269 /wizards
parent22c8cc4ed2d29421fe5fc8ab2ce4e90a4738c9d2 (diff)
#10710# GetFormWizardPaths Routine added
Diffstat (limited to 'wizards')
-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(&quot;com.sun.star.sdb.DatabaseContext&quot;)
oUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
- FormPath = GetOfficeSubPath(&quot;Template&quot;,&quot;wizard/bitmap&quot;)
- WebWizardPath = GetOfficeSubPath(&quot;Template&quot;,&quot;wizard/web&quot;)
- WizardPath = GetOfficeSubPath(&quot;Template&quot;,&quot;wizard/&quot;)
- TexturePath = GetOfficeSubPath(&quot;Gallery&quot;, &quot;www-back/&quot;)
- WorkPath = GetPathSettings(&quot;Work&quot;)
+ 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(&quot;Template&quot;,&quot;wizard/bitmap&quot;)
+ If FormPath &lt;&gt; &quot;&quot; Then
+ WebWizardPath = GetOfficeSubPath(&quot;Template&quot;,&quot;wizard/web&quot;)
+ If WebWizardPath &lt;&gt; &quot;&quot; Then
+ WizardPath = GetOfficeSubPath(&quot;Template&quot;,&quot;wizard/&quot;)
+ If Wizardpath &lt;&gt; &quot;&quot; Then
+ TexturePath = GetOfficeSubPath(&quot;Gallery&quot;, &quot;www-back/&quot;)
+ If TexturePath &lt;&gt; &quot;&quot; Then
+ WorkPath = GetPathSettings(&quot;Work&quot;)
+ If WorkPath &lt;&gt; &quot;&quot; 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