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