You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
50 lines
2.2 KiB
50 lines
2.2 KiB
--- wizards/source/euro/AutoPilotRun.xba 2010-06-08 11:34:12.000000000 +0100
|
|
+++ wizards/source/euro/AutoPilotRun.xba 2010-06-08 12:54:34.000000000 +0100
|
|
@@ -11,7 +11,7 @@
|
|
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 @@
|
|
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)
|