diff options
| author | Caolán McNamara <caolanm@redhat.com> | 2010-09-30 16:41:42 +0100 |
|---|---|---|
| committer | Caolán McNamara <caolanm@redhat.com> | 2010-09-30 16:41:42 +0100 |
| commit | 653d2ad012009aff08d8a2939a694411f9821700 (patch) | |
| tree | e25331790283297d7bf7be90c22226795970020b | |
| parent | d25be311045b48c35e4b322e60ed1315831d7e25 (diff) | |
#i100686# Euro converter didn't work when searching for ods in a dir
| -rw-r--r-- | wizards/source/euro/AutoPilotRun.xba | 31 |
1 files changed, 18 insertions, 13 deletions
diff --git a/wizards/source/euro/AutoPilotRun.xba b/wizards/source/euro/AutoPilotRun.xba index 6c5adb9ea..e1f2fe076 100644 --- a/wizards/source/euro/AutoPilotRun.xba +++ b/wizards/source/euro/AutoPilotRun.xba @@ -11,7 +11,7 @@ Public Source as String Public SubstFile as String Public SubstDir as String Public NoArgs() -Public FilterList(9) as String +Public TypeList(14) as String Public GoOn as Boolean Public DoUnprotect as Integer Public Password as String @@ -55,20 +55,25 @@ Dim bDisposable as Boolean Else SourceDir = Source TargetStemDir = TargetDir - FilterList(0) = "application/x-starcalc" - FilterList(1) = "application/vnd.stardivision.calc" - FilterList(2) = "application/vnd.sun.xml.calc" - FilterList(3) = "application/vnd.oasis.opendocument.spreadsheet" + TypeList(0) = "calc8" + TypeList(1) = "calc_StarOffice_XML_Calc" + TypeList(2) = "calc_StarCalc_30" + TypeList(3) = "calc_StarCalc_40" + TypeList(4) = "calc_StarCalc_50" If DialogModel.chkTextDocuments.State = 1 Then - ReDim Preserve FilterList(8) as String - - FilterList(4) = "application/x-starwriter" - FilterList(5) = "application/vnd.stardivision.writer" - FilterList(6) = "application/vnd.stardivision.writer/web" - FilterList(7) = "application/vnd.sun.xml.writer" - FilterList(8) = "application/vnd.oasis.opendocument.text" + ReDim Preserve TypeList(13) as String + + TypeList(5) = "writer8" + TypeList(6) = "writerglobal8" + TypeList(7) = "writer_StarOffice_XML_Writer" + TypeList(8) = "writer_globaldocument_StarOffice_XML_Writer_GlobalDocument" + TypeList(9) = "writer_StarWriter_30" + TypeList(10) = "writer_StarWriter_40" + TypeList(11) = "writer_globaldocument_StarWriter_40GlobalDocument" + TypeList(12) = "writer_StarWriter_50" + TypeList(13) = "writer_globaldocument_StarWriter_50GlobalDocument" End If - FilesList() = ReadDirectories(SourceDir, bRecursive, True, False, FilterList()) + FilesList() = ReadDirectories(SourceDir, bRecursive, True, False, TypeList()) TotDocCount = Ubound(FilesList(),1) + 1 End If InitializeProgressPage(DialogModel) |