diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2004-12-23 08:38:20 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2004-12-23 08:38:20 +0000 |
| commit | 139ef51ffc3160d94519c79f98154e12d30fc43b (patch) | |
| tree | 0e99def432fdc2478fdebe0929593fa8cce63878 | |
| parent | 932fdb05ebde6ab7f9f29ba16790fc346a2b5008 (diff) | |
INTEGRATION: CWS extrasbetafixes1 (1.24.24); FILE MERGED
2004/12/06 15:16:19 ih 1.24.24.1: #i38400# new file formats included
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 8215bff2c530..2ca883eb5fa6 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -310,7 +310,7 @@ Dim sNoDirMessage as String bIsValid = False End If Else - If Instr(1, sLocMimeType, "spreadsheet") = 0 Then + If (Instr(1, sLocMimeType, "spreadsheet") = 0) And (Instr(1, sLocMimeType, "calc")) = 0 Then Msgbox(sMsgFileInvalid, 48, sMsgDLGTITLE) bIsValid = False End If @@ -377,7 +377,7 @@ Sub CallFilePicker() FilterNames(9,0) = oUIKey.Classes.GetByName("sw3to5templ").DisplayName Filternames(9,1) = "*.vor" FilterNames(10,0) = oTypes.GetByName("writer8").UIName - FilterNames(10,1) = "*.oot" + FilterNames(10,1) = "*.odt" FilterNames(11,0) = oTypes.GetByName("writer8_template").UIName FilterNames(11,1) = "*.ott" Else @@ -392,7 +392,7 @@ Sub CallFilePicker() FilterNames(3,0) = oUIKey.Classes.GetByName("sc345templ").DisplayName Filternames(3,1) = "*.vor" FilterNames(4,0) = oTypes.GetByName("calc8").UIName - Filternames(4,1) = "*.oos" + Filternames(4,1) = "*.ods" FilterNames(5,0) = oTypes.GetByName("calc8_template").UIName Filternames(5,1) = "*.ots" GetFileName(DialogModel.txtSource, Filternames()) |