diff options
| author | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-08-02 16:25:02 +0000 |
|---|---|---|
| committer | Jens-Heiner Rechtien <hr@openoffice.org> | 2004-08-02 16:25:02 +0000 |
| commit | 7912f469a46027063febb0f6a0ef6e2b61a5078b (patch) | |
| tree | 4c7f8e532c3a4a665c8856d88595775de50486ec | |
| parent | 279dc315ed0eafce10acb1ffdd867a2431562381 (diff) | |
INTEGRATION: CWS insight01 (1.31.142); FILE MERGED
2004/06/18 12:21:15 bc 1.31.142.1: ##Formwizard adapted to database filehandling
| -rw-r--r-- | wizards/source/formwizard/tools.xba | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/wizards/source/formwizard/tools.xba b/wizards/source/formwizard/tools.xba index b97b5a08b837..fa190cbd02bf 100644 --- a/wizards/source/formwizard/tools.xba +++ b/wizards/source/formwizard/tools.xba @@ -312,8 +312,11 @@ Function GetFormWizardPaths() as Boolean If TexturePath <> "" Then WorkPath = GetPathSettings("Work") If WorkPath <> "" Then - GetFormWizardPaths = True - Exit Function + TempPath = GetPathSettings("Temp") + If TempPath <> "" Then + GetFormWizardPaths = True + Exit Function + End If End If End If End If @@ -340,4 +343,5 @@ Dim UIName as String End If next i GetFilterName() = UIName -End Function</script:module>
\ No newline at end of file +End Function +</script:module>
\ No newline at end of file |