diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2003-06-24 06:33:29 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2003-06-24 06:33:29 +0000 |
| commit | 3e735768cb0b472730aa8dc4122a4d12a94b42ff (patch) | |
| tree | dd514f1aef754989f8e9539137974c6d8804a847 /wizards/source/importwizard/FilesModul.xba | |
| parent | 862cac51f840df3275a4618807def6e4b4061d6b (diff) | |
INTEGRATION: CWS draw18 (1.35.12); FILE MERGED
2003/06/18 09:43:34 bc 1.35.12.1: #110221# documents now always saved in target path
Diffstat (limited to 'wizards/source/importwizard/FilesModul.xba')
| -rw-r--r-- | wizards/source/importwizard/FilesModul.xba | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/wizards/source/importwizard/FilesModul.xba b/wizards/source/importwizard/FilesModul.xba index 1ee5a0ade362..9b1b8628518b 100644 --- a/wizards/source/importwizard/FilesModul.xba +++ b/wizards/source/importwizard/FilesModul.xba @@ -67,6 +67,7 @@ Dim bAssignFileName as Boolean ReadCollectionPaths() = False Exit Function End If + CurFileContent = "" CurFileName = NewList(n,0) If NewList(n,1) = "vor" Then CurFileContent = GetRealFileContent(oDocInfo, CurFileName) @@ -83,6 +84,9 @@ Dim bAssignFileName as Boolean a = a + 1 NewList(a,0) = CurFileName NewList(a,1) = CurExtension + If CurFileContent = "" Then + CurFileContent = CurExtension + End If ApplIndex = GetApplicationIndex(CurFileContent, sFiltername()) NewContentList(a) = ApplIndex End If |