1<?xml version="1.0" encoding="UTF-8"?>
2<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
3<!--***********************************************************
4 *
5 * Licensed to the Apache Software Foundation (ASF) under one
6 * or more contributor license agreements.  See the NOTICE file
7 * distributed with this work for additional information
8 * regarding copyright ownership.  The ASF licenses this file
9 * to you under the Apache License, Version 2.0 (the
10 * "License"); you may not use this file except in compliance
11 * with the License.  You may obtain a copy of the License at
12 *
13 *   http://www.apache.org/licenses/LICENSE-2.0
14 *
15 * Unless required by applicable law or agreed to in writing,
16 * software distributed under the License is distributed on an
17 * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
18 * KIND, either express or implied.  See the License for the
19 * specific language governing permissions and limitations
20 * under the License.
21 *
22 ***********************************************************-->
23<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Language" script:language="StarBasic">Option Explicit
24
25Public sMSTemplateCheckbox(2) As String
26Public sMSDocumentCheckbox(2) As String
27Public sSODocumentCheckbox(4) As String
28Public sSOHelperdocuments(1,1) As String
29Public sTemplateCheckbox(SBMAXAPPLCOUNT-1) As String
30Public sDocumentCheckbox(SBMAXAPPLCOUNT-1) As String
31Public sTemplateGroupName As String
32Public sSearchInSubDir as String
33Public sPathErrorTemplates(SBMAXAPPLCOUNT-1) As String
34Public sPathErrorDocument(SBMAXAPPLCOUNT-1) As String
35Public sPathErrorStarDoc(SBMAXAPPLCOUNT-1) As String
36Public sStarDocLabel(SBMAXAPPLCOUNT-1) As String
37Public sImportLabel As String, sExportLabel As String
38Public SOApplicationName(5) As String
39Public sHelpButton As String, sCancelButton As String, sBackButton As String, sNextButton As String
40Public sSumInclusiveSubDir As String, sSumSaveDocuments As String
41Public sSummaryHeader As String
42Public sWelcometextLabel1 As String, sWelcometextLabel2 As String, sWelcometextLabel3 As String
43Public sBeginButton As String, sMsgDirNotThere As String
44Public sQueryForNewCreation As String, sPathError3 As String
45Public sNoDirCreation As String
46Public sProgressMoreDocs As String, sProgressMoreTemplates as String
47Public sFileExists As String, sMorePathsError3 As String
48Public sConvertError1 As String, sConvertError2 As String, sPathDialogMessage As String
49Public sRTErrorDesc As String, sRTErrorHeader As String
50Public sProgressPage_1 As String, sProgressPage_2 As String, sProgressPage_3 as String
51Public sProgressFound as String, sProgresspage_5 as String
52Public sContainerName(1) as String
53Public sReady as String, sTitle as String
54Public sCloseButton as String
55Public sSourceDocuments as String
56Public sTargetDocuments as String
57Public sSumSODocuments(4) as String
58Public sSumSOTemplates(4) as String
59Public sSumMSDocuments(3) as String
60Public sSumMSTemplates(3) as String
61Public ModuleList(3) as String
62Public sLogSummary as String
63Public sReeditMacro as String
64Public sOverwriteallFiles as String
65Public scouldnotopenDocument as String
66Public sCurcouldnotopenDocument as String
67Public scouldnotsaveDocument as String
68Public sCurcouldnotsaveDocument as String
69
70
71Sub LoadLanguage()
72	If InitResources(&quot;ImportWizard&quot;,&quot;imp&quot;) then
73		sHelpButton = GetResText(1000)
74		sCancelButton = GetResText(1001)
75		sBackButton = GetResText(1002)
76		sNextButton = GetResText(1003)
77		sBeginButton = GetResText(1004)
78		sCloseButton = GetResText(1005)
79
80		sWelcometextLabel1 = ReplaceString(GetResText(1006), GetProductName(),&quot;%PRODUCTNAME&quot;)
81		sWelcometextLabel2 = GetResText(1007)
82		sWelcometextLabel3 = GetResText(1008)
83
84		&apos; Microsoft Documents
85		GetApplResourceArray(1009, 3, sMSTemplateCheckBox())
86
87		&apos; DocumentCheckbox- Captions
88		GetApplResourceArray(1012, 3, sMSDocumentCheckBox())
89
90		&apos; DocumentCheckbox- Captions
91		GetApplResourceArray(2013, 5, sSODocumentCheckBox())
92
93		&apos; OpenOffice Applicationnames
94
95		sSOHelperDocuments(0,0) = GetResText(2017)
96		sSOHelperDocuments(0,1) = &quot;com.sun.star.text.GlobalDocument&quot;
97		sSOHelperDocuments(1,0) = GetResText(2018)
98		sSOHelperDocuments(1,1) = &quot;com.sun.star.formula.FormulaProperties&quot;
99
100		GetApplResourceArray(2017,2, sSOHelperDocuments())
101
102		sContainerName(0) = GetResText(1030)
103		&apos; Note: for the version 5.2 there was no Productname &quot;StarSuite&quot;
104		sContainerName(1) = &quot;OpenOffice&quot;
105
106		sSummaryHeader = GetResText(1031)
107
108		sTemplateGroupName = GetResText(1036)
109
110		sProgressMoreDocs = GetResText(1041)
111		sProgressMoreTemplates = GetResText(1042)
112		sNoDirCreation = GetResText(1050)
113		sMsgDirNotThere = GetResText(1051)
114		sQueryForNewCreation = GetResText(1052)
115		sFileExists = GetResText(1053)
116		sMorePathsError3 = GetResText(1054)
117		sConvertError1 = GetResText(1055)
118		sConvertError2 = GetResText(1056)
119		sRTErrorDesc = GetResText(1057)
120		sRTErrorHeader = GetResText(1058)
121		sOverwriteallFiles = GetResText(1070)
122		sReeditMacro = GetResText(1071)
123		scouldnotsaveDocument = GetResText(1072)
124		scouldnotopenDocument = GetResText(1073)
125		sPathDialogMessage = GetResText(1080)
126		sTitle = GetResText(1081)
127
128		sProgressPage_1 = GetResText(1090)
129		sProgressPage_2 = GetResText(1091)
130		sProgressPage_3 = GetResText(1092)
131		sProgressFound = GetResText(1093)
132		sProgressPage_5 = GetResText(1094)
133		sReady = GetResText(1100)
134		sSourceDocuments = GetResText(2030)
135		sTargetDocuments = GetResText(2031)
136		sLogSummary = GetResText(2034)
137		sSumInclusiveSubDir = GetResText(3000)
138		sSumSaveDocuments = GetResText(3001)
139		&apos;OpenOffice Applicationnames
140		GetApplResourceArray(3100, 4, sSumSODocuments())
141		GetApplResourceArray(3110, 4, sSumSOTemplates())
142		GetApplResourceArray(3200, 3, sSumMSDocuments())
143		GetApplResourceArray(3210, 3, sSumMSTemplates())
144		With ImportDialog
145			sImportLabel = GetResText(1033)
146			sExportLabel = GetResText(1034)
147			sSearchInSubDir = GetResText(1022)
148			.chkTemplateSearchSubDir.Label = sSearchInSubDir
149			.lblDocumentImport.Label = sImportLabel
150			.lblDocumentExport.Label = sExportLabel
151			.chkDocumentSearchSubDir.Label = sSearchInSubDir
152			.lblTemplateImport.Label = sImportLabel
153			.lblTemplateExport.Label = sExportLabel
154			.chkLogfile.Label = GetResText(2032)
155			.chkLogfile.Helptext = GetResText(2033)
156			Dim Blabla as String
157			blabla = GetResText(1072)
158			.cmdShowLogFile.Label = GetResText(2035)
159		End With
160		ModuleList(0) = &quot;com.sun.star.text.TextDocument&quot;
161		ModuleList(1) = &quot;com.sun.star.sheet.SpreadsheetDocument&quot;
162		ModuleList(2) = &quot;com.sun.star.drawing.DrawingDocument/com.sun.star.presentation.PresentationDocument&quot;
163		ModuleList(3) = &quot;com.sun.star.formula.FormulaProperties/com.sun.star.text.GlobalDocument&quot;
164	End If
165End Sub
166
167
168Sub GetApplResourceArray(StartResIndex as Integer, Count as Integer, BigArray())
169Dim i as Integer
170Dim a as Integer
171	a = 0
172	For i = StartResIndex To StartResIndex + Count-1
173		BigArray(a) = GetResText(i)
174		a = a + 1
175	Next
176End Sub
177</script:module>
178