wizards/source/importwizard/DialogModul.xba

   1 <?xml version="1.0" encoding="UTF-8"?>
   2 <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
   3 <!--
   4  * This file is part of the LibreOffice project.
   5  *
   6  * This Source Code Form is subject to the terms of the Mozilla Public
   7  * License, v. 2.0. If a copy of the MPL was not distributed with this
   8  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   9  *
  10  * This file incorporates work covered by the following license notice:
  11  *
  12  *   Licensed to the Apache Software Foundation (ASF) under one or more
  13  *   contributor license agreements. See the NOTICE file distributed
  14  *   with this work for additional information regarding copyright
  15  *   ownership. The ASF licenses this file to you under the Apache
  16  *   License, Version 2.0 (the "License"); you may not use this file
  17  *   except in compliance with the License. You may obtain a copy of
  18  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  19 -->
  20 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="DialogModul" script:language="StarBasic">Option Explicit
  21
  22 Public Const bDebugWizard = True
  23
  24 Public Const SBFIRSTAPPLCHECKED = 0
  25 Public Const SBSECONDAPPLCHECKED = 1
  26 Public Const SBTHIRDAPPLCHECKED = 2
  27 Public Const SBFOURTHAPPLCHECKED = 3
  28 Public WizardMode as String
  29 Public Const SBMICROSOFTMODE = &quot;MS&quot;
  30 &apos; The absolute maximal Number of possible Applications
  31 Public Const SBMAXAPPLCOUNT = 4
  32 Public Const Twip = 425
  33 Public MaxApplCount as Integer
  34 Public CurOffice As Integer
  35 Public SOBitmapPath As String
  36 Public SOWorkPath As String
  37 Public SOTemplatePath as String
  38 Public bCancelTask As Boolean
  39 Public bDoKeepApplValues as Boolean
  40 Public oUcb as Object
  41 Public PathSeparator as String
  42
  43 Public ApplCount as Integer
  44 Public sKeyName(SBMAXAPPLCOUNT-1) as String
  45 Public sValueName(SBMAXAPPLCOUNT-1) as String
  46 Public sCRLF as String
  47 Public MSFilterName(5,4) as String
  48
  49 Public Applications(SBMAXAPPLCOUNT-1,9)
  50
  51 Public Const SBAPPLCONVERT = 0
  52 Public Const SBDOCCONVERT = 1
  53 Public Const SBDOCRECURSIVE = 2
  54 Public Const SBDOCSOURCE = 3
  55 Public Const SBDOCTARGET = 4
  56 Public Const SBTEMPLCONVERT = 5
  57 Public Const SBTEMPLRECURSIVE = 6
  58 Public Const SBTEMPLSOURCE = 7
  59 Public Const SBTEMPLTARGET = 8
  60 Public Const SBAPPLKEY = 9
  61 Public XMLTemplateList()
  62
  63 &apos; Application-relating Data are stored in this Array
  64 &apos; according to the following structure:
  65 &apos; Applications(X,0) = True/False           (Application is to be converted)
  66 &apos; Applications(X,1) = True/False           (Documents are to be converted)
  67 &apos; Applications(X,2) = True/False           (Including Subdirectories)
  68 &apos; Applications(X,3) = &quot;File:///...&quot;              (SourceUrl of the documents)
  69 &apos; Applications(X,4) = &quot;File///:...&quot;              (TargetUrl of the documents)
  70 &apos; Applications(X,5) = True/False           (Templates are to be converted)
  71 &apos; Applications(X,6) = True/False           (Including Subdirectories)
  72 &apos; Applications(X,7) = &quot;File:///...&quot;              (SourceUrl of the templates)
  73 &apos; Applications(X,8) = &quot;File:///...&quot;      (TargetUrl of the templates)
  74 &apos; Applications(X,9) = 0                                (Key to the original Index of the Applications)
  75
  76
  77 Sub FillStep_Welcome()
  78 Dim i as Integer
  79 &apos;  bDoKeepApplValues = False
  80         ImportDialogArea.Title = sTitle
  81         With ImportDialog
  82                 .cmdHelp.Label = sHelpButton
  83                 .cmdCancel.Label = sCancelButton
  84                 .cmdBack.Label = sBackButton
  85                 .cmdGoOn.Label = sNextButton
  86                 .WelcomeTextLabel.Label = sWelcomeTextLabel1
  87                 .WelcomeTextLabel3.Label = sWelcomeTextLabel3
  88
  89                 .optMSDocuments.Label = sContainerName(0)
  90                 .chkMSApplication1.Label = sMsDocumentCheckbox(0)
  91                 .chkMSApplication2.Label = sMsDocumentCheckbox(1)
  92                 .chkMSApplication3.Label = sMsDocumentCheckbox(2)
  93
  94                 .cmdBack.Enabled = False
  95                 .Step = 1
  96
  97                 If Not oFactoryKey.hasbyName(&quot;com.sun.star.text.TextDocument&quot;) Then
  98                         .chkLogfile.State = 0
  99                         .chkLogfile.Enabled = False
 100                 End If
 101         End With
 102         CheckModuleInstallation()
 103         ToggleNextButton()
 104 End Sub
 105
 106
 107 Sub FillStep_InputPaths(OfficeIndex as Integer, bStartup as Boolean)
 108 Dim Index as Integer
 109 Dim oNullObject as Object
 110         If bStartup And Not bDoKeepApplValues Then
 111             If ImportDialog.optMSDocuments.State = 1 Then
 112                         SetupMSConfiguration()
 113                 Else
 114                         &apos;Not supposed to happen - is there an assert in BASIC...
 115                 End If
 116                 FillUpApplicationList()
 117         End If
 118         CurOffice = OfficeIndex
 119         Index = Applications(CurOffice,SBAPPLKEY)
 120         InitializePathsforCurrentApplication(Index)
 121         With ImportDialog
 122                 .chkTemplatePath.Label = sTemplateCheckbox(Index)
 123         .chkDocumentPath.State = Abs(Applications(CurOffice,SBDOCCONVERT))
 124                 .chkDocumentSearchSubDir.State = Abs(Applications(CurOffice,SBDOCRECURSIVE))
 125                 .txtDocumentImportPath.Text = ConvertFromUrl(Applications(CurOffice,SBDOCSOURCE))
 126                 .txtDocumentExportPath.Text = ConvertFromUrl(Applications(CurOffice,SBDOCTARGET))
 127                 .hlnDocuments.Label = sProgressMoreDocs
 128                 If WizardMode = SBMICROSOFTMODE Then
 129                         ImportDialogArea.Title = sTitle &amp; &quot; - &quot; &amp; sMSDocumentCheckBox(Index)
 130                 End If
 131                 .chkTemplatePath.Enabled = True
 132                 .chkDocumentPath.Enabled = True
 133                 .chkTemplatePath.Label = sTemplateCheckbox(Index)
 134                 .chkDocumentPath.Label = sDocumentCheckbox(Index)
 135                 .hlnTemplates.Label = sProgressMoreTemplates
 136                 .chkTemplatePath.State = Abs(Applications(CurOffice,SBTEMPLCONVERT))
 137                 ToggleInputPaths(oNullObject,&quot;Template&quot;)
 138                 ToggleInputPaths(oNullObject,&quot;Document&quot;)
 139                 .chkTemplateSearchSubDir.State = Abs(Applications(CurOffice,SBTEMPLRECURSIVE))
 140                 .txtTemplateImportPath.Text = ConvertFromUrl(Applications(CurOffice,SBTEMPLSOURCE))
 141                 .txtTemplateExportPath.Text = ConvertFromUrl(Applications(CurOffice,SBTEMPLTARGET))
 142                 .cmdGoOn.Label = sNextButton
 143                 .cmdBack.Enabled = True
 144                 ImportDialog.Step = 2
 145         End With
 146         ImportDialogArea.GetControl(&quot;chkTemplatePath&quot;).SetFocus()
 147         ToggleNextButton()
 148 End Sub
 149
 150
 151 Sub FillUpApplicationList()
 152 Dim i as Integer
 153 Dim a as Integer
 154 Dim BoolValue as Boolean
 155         If Not bDoKeepApplValues Then
 156                 a = 0
 157                 For i = 1 To ApplCount
 158                     If ImportDialog.optMSDocuments.State = 1 Then
 159                                 BoolValue = ImportDialogArea.GetControl(&quot;chkMSApplication&quot; &amp; i).Model.State = 1
 160                         End If
 161                         Applications(a,SBAPPLCONVERT) = BoolValue
 162                         Applications(a,SBDOCCONVERT) = BoolValue
 163                         Applications(a,SBDOCRECURSIVE) = BoolValue
 164                         Applications(a,SBDOCSOURCE) = &quot;&quot;                      &apos; GetDefaultPath(i)
 165                         Applications(a,SBDOCTARGET) = &quot;&quot;                      &apos; SOWorkPath
 166                         Applications(a,SBTEMPLCONVERT) = BoolValue
 167                         Applications(a,SBTEMPLRECURSIVE) = BoolValue
 168                         Applications(a,SBTEMPLSOURCE) = &quot;&quot;                    &apos; GetTemplateDefaultPath(i)
 169                         Applications(a,SBTEMPLTARGET) = &quot;&quot;                    &apos; GetTargetTemplatePath(i)
 170                         Applications(a,SBAPPLKEY) = i-1
 171                         If BoolValue Then
 172                                 a = a + 1
 173                         End If
 174                 Next i
 175                 ApplCount = a
 176         End If
 177 End Sub
 178
 179
 180 Sub InitializePathsforCurrentApplication(i as Integer)
 181         AssignPathToCurrentApplication(SBDOCSOURCE, GetDefaultPath(i))
 182         AssignPathToCurrentApplication(SBDOCTARGET, SOWorkPath)
 183         AssignPathToCurrentApplication(SBTEMPLSOURCE, GetTemplateDefaultPath(i))
 184         AssignPathToCurrentApplication(SBTEMPLTARGET, GetTargetTemplatePath(i))
 185 End Sub
 186
 187
 188 Sub AssignPathToCurrentApplication(Index as Integer, NewPath as String)
 189         If Applications(CurOffice,Index) = &quot;&quot; Then
 190                 If CurOffice &gt; 0 Then
 191                         Applications(CurOffice,Index) = Applications(CurOffice-1,Index)
 192                 Else
 193                         Applications(CurOffice,Index) = NewPath
 194                 End If
 195         End If
 196 End Sub
 197
 198
 199 Sub SaveStep_InputPath()
 200         Applications(CurOffice,SBDOCCONVERT)  = ImportDialog.chkDocumentPath.State = 1
 201         Applications(CurOffice,SBDOCRECURSIVE)  = ImportDialog.chkDocumentSearchSubDir.State = 1
 202         Applications(CurOffice,SBDOCSOURCE)  = ConvertToURL(ImportDialog.txtDocumentImportPath.Text)
 203         Applications(CurOffice,SBDOCTARGET) = ConvertToUrl(ImportDialog.txtDocumentExportPath.Text)
 204     Applications(CurOffice,SBTEMPLCONVERT) = ImportDialog.chkTemplatePath.State = 1
 205     Applications(CurOffice,SBTEMPLRECURSIVE) = ImportDialog.chkTemplateSearchSubDir.State = 1
 206         Applications(CurOffice,SBTEMPLSOURCE) = ConvertToURL(ImportDialog.txtTemplateImportPath.Text)
 207         Applications(CurOffice,SBTEMPLTARGET) = ConvertToURL(ImportDialog.txtTemplateExportPath.Text)
 208 End Sub
 209
 210
 211 Sub ToggleInputPaths(aEvent as Object, Optional sDocType)
 212 Dim bDoEnable as Boolean
 213 Dim sLocDocType as String
 214 Dim oCheckBox as Object
 215         If Not IsNull(aEvent) Then
 216                 sLocDocType = aEvent.Source.Model.Tag
 217         Else
 218                 sLocDocType = sDocType
 219         End If
 220         With ImportDialogArea
 221                 oCheckBox = .GetControl(&quot;chk&quot; &amp; sLocDocType &amp; &quot;Path&quot;).Model
 222         bDoEnable = oCheckBox.State = 1 And oCheckBox.Enabled
 223                 .GetControl(&quot;lbl&quot; &amp; sLocDocType &amp; &quot;Import&quot;).Model.Enabled = bDoEnable
 224                 .GetControl(&quot;lbl&quot; &amp; sLocDocType &amp; &quot;Export&quot;).Model.Enabled = bDoEnable
 225                 .GetControl(&quot;txt&quot; &amp; sLocDocType &amp; &quot;ImportPath&quot;).Model.Enabled = bDoEnable
 226                 .GetControl(&quot;txt&quot; &amp; sLocDocType &amp; &quot;ExportPath&quot;).Model.Enabled = bDoEnable
 227                 .GetControl(&quot;chk&quot; &amp; sLocDocType &amp; &quot;SearchSubDir&quot;).Model.Enabled = bDoEnable
 228                 .GetControl(&quot;cmd&quot; &amp; sLocDocType &amp; &quot;Import&quot;).Model.Enabled = bDoEnable
 229                 .GetControl(&quot;cmd&quot; &amp; sLocDocType &amp; &quot;Export&quot;).Model.Enabled = bDoEnable
 230         End With
 231         ToggleNextButton()
 232 End Sub
 233
 234
 235 Function MakeSummaryString()
 236 Dim sTmpText As String
 237 Dim i as Integer
 238 Dim Index as Integer
 239 Dim sAddText as String
 240         For i = 0 To ApplCount -1
 241                 Index = Applications(i,SBAPPLKEY)
 242                 If      Applications(i,SBTEMPLCONVERT) Then
 243                         &apos; Templates are to be converted
 244                         sAddText = &quot;&quot;
 245                         If WizardMode = SBMICROSOFTMODE Then
 246                                 sAddText = sSumMSTemplates(Index) &amp; sCRLF
 247                         End If
 248                         sTmpText = sTmpText &amp; sAddText &amp;  ConvertFromUrl(Applications(i,SBTEMPLSOURCE)) &amp; sCRLF
 249                         If Applications(i,SBTEMPLRECURSIVE) Then
 250                                 &apos; Including Subdirectories
 251                                 sTmpText = sTmpText &amp; sSumInclusiveSubDir &amp; sCRLF
 252                         End If
 253                         sTmpText = sTmpText &amp; sSumSaveDocuments &amp; sCRLF
 254                         sTmpText = sTmpText &amp; ConvertFromUrl(Applications(i,SBTEMPLTARGET)) &amp; sCRLF
 255                         sTmpText = sTmpText &amp; sCRLF
 256                 End If
 257
 258                 If Applications(i,SBDOCCONVERT) Then
 259                         &apos; Documents are to be converted
 260                         If WizardMode = SBMICROSOFTMODE Then
 261                                 sAddText = sSumMSDocuments(Index) &amp; sCRLF
 262                         End If
 263                         sTmpText = sTmpText &amp; sAddText &amp; ConvertFromUrl(Applications(i,SBDOCSOURCE)) &amp; sCRLF
 264
 265                         If Applications(i,SBDOCRECURSIVE) Then
 266                                 &apos; Including Subdirectories
 267                                 sTmpText = sTmpText &amp; sSumInclusiveSubDir &amp; sCRLF
 268                         End If
 269
 270                         sTmpText = sTmpText &amp; sSumSaveDocuments &amp; sCRLF
 271                         sTmpText = sTmpText &amp; ConvertFromUrl(Applications(i,SBDOCTARGET)) &amp; sCRLF
 272                         sTmpText = sTmpText &amp; sCRLF
 273                 End If
 274         Next i
 275         MakeSummaryString = sTmpText
 276 End Function
 277
 278
 279 Sub FillStep_Summary()
 280         ImportDialogArea.Title = sTitle
 281         With ImportDialog
 282                 .SummaryTextbox.Text = MakeSummaryString()
 283                 .cmdGoOn.Enabled = .SummaryTextbox.Text &lt;&gt; &quot;&quot;
 284                 .cmdGoOn.Label = sBeginButton
 285                 .SummaryHeaderLabel.Label = sSummaryHeader
 286                 .Step = 3
 287         End With
 288         ImportDialogArea.GetControl(&quot;SummaryHeaderLabel&quot;).SetFocus()
 289 End Sub
 290
 291
 292 Sub FillStep_Progress()
 293         With ImportDialog
 294                 .cmdBack.Enabled = False
 295                 .cmdGoOn.Enabled = False
 296             .hlnProgress.Label = sProgressPage_1
 297             .LabelRetrieval.FontWeight = com.sun.star.awt.FontWeight.BOLD
 298                 .LabelRetrieval.Label = sProgressPage_2
 299                 .LabelCurProgress.Label = sProgressPage_3
 300                 .LabelCurDocumentRetrieval.Label = &quot;&quot;
 301                 .LabelCurTemplateRetrieval.Label = &quot;&quot;
 302                 .LabelCurDocument.Label = &quot;&quot;
 303                 .Step = 4
 304         End With
 305         ImportDialogArea.GetControl(&quot;LabelRetrieval&quot;).SetFocus()
 306         If ImportDialog.chkLogfile.State = 1 Then
 307                 ImportDialog.cmdShowLogFile.DefaultButton = True
 308         End If
 309 End Sub
 310
 311
 312 Sub     SetupMSConfiguration()
 313         Wizardmode = SBMICROSOFTMODE
 314         MaxApplCount = 3
 315         ApplCount = 3
 316         &apos; chkTemplatePath-Captions
 317         sTemplateCheckBox(0) = GetResText(&quot;MSTemplateCheckbox_1_&quot;)
 318         sTemplateCheckBox(1) = GetResText(&quot;MSTemplateCheckbox_2_&quot;)
 319         sTemplateCheckBox(2) = GetResText(&quot;MSTemplateCheckbox_3_&quot;)
 320         &apos; DocumentCheckbox- Captions
 321         sDocumentCheckBox(0) = GetResText(&quot;MSDocumentCheckbox_1_&quot;)
 322         sDocumentCheckBox(1) = GetResText(&quot;MSDocumentCheckbox_2_&quot;)
 323         sDocumentCheckBox(2) = GetResText(&quot;MSDocumentCheckbox_3_&quot;)
 324
 325         sKeyName(0) = &quot;Software\Microsoft\Office\8.0\Word\Options&quot;
 326         sKeyName(1) = &quot;Software\Microsoft\Office\8.0\Excel\Microsoft Excel&quot;
 327         sKeyName(2) = &quot;Software\Microsoft\Office\8.0\PowerPoint\Recent Folder List\Default&quot;
 328
 329         sValueName(0) = &quot;DOC-PATH&quot;
 330         sValueName(1) = &quot;DefaultPath&quot;
 331         sValueName(2) = &quot;&quot;
 332
 333 &apos; See definition of Filtername-Array about meaning of fields
 334         MSFilterName(0,0) = &quot;doc|docx|docm&quot;
 335         MSFilterName(0,1) = &quot;writer8|writer8|writer8&quot;
 336         MSFilterName(0,2) = &quot;odt|odt|odt&quot;
 337         MSFilterName(0,3) = sMSDocumentCheckBox(0)
 338         MSFilterName(0,4) = &quot;Word&quot;
 339
 340
 341         MSFilterName(1,0) = &quot;xls|xlsx|xlsm&quot;
 342         MSFilterName(1,1) = &quot;calc8|calc8|calc8&quot;
 343         MSFilterName(1,2) = &quot;ods|ods|ods&quot;
 344         MSFilterName(1,3) = sMSDocumentCheckBox(1)
 345         MSFilterName(1,4) = &quot;Excel&quot;
 346
 347         MSFilterName(2,0) = &quot;ppt|pps|pptx|pub|pptm|ppsx|ppsm&quot;
 348         MSFilterName(2,1) = &quot;impress8|impress8|impress8|impress8|impress8|impress8|impress8&quot;
 349         MSFilterName(2,2) = &quot;odp|odp|odp|odp|odp|odp|odp&quot;
 350         MSFilterName(2,3) = sMSDocumentCheckBox(2)
 351         MSFilterName(2,4) = &quot;PowerPoint/Publisher&quot;
 352
 353         MSFilterName(3,0) = &quot;dot|dotx|dotm&quot;
 354         MSFilterName(3,1) = &quot;writer8_template|writer8_template|writer8_template&quot;
 355         MSFilterName(3,2) = &quot;ott|ott|ott&quot;
 356         MSFilterName(3,3) = sMSTemplateCheckBox(0)
 357         MSFilterName(3,4) = &quot;Word&quot;
 358
 359         MSFilterName(4,0) = &quot;xlt|xltx|xltm&quot;
 360         MSFilterName(4,1) = &quot;calc8_template|calc8_template|calc8_template&quot;
 361         MSFilterName(4,2) = &quot;ots|ots|ots&quot;
 362         MSFilterName(4,3) = sMSTemplateCheckBox(1)
 363         MSFilterName(4,4) = &quot;Excel&quot;
 364
 365         MSFilterName(5,0) = &quot;pot|potx|potm&quot;
 366         MSFilterName(5,1) = &quot;impress8_template|impress8_template|impress8_template&quot;
 367         MSFilterName(5,2) = &quot;otp|otp|otp&quot;
 368         MSFilterName(5,3) = sMSTemplateCheckBox(2)
 369         MSFilterName(5,4) = &quot;PowerPoint&quot;
 370 End Sub
 371
 372
 373 Function CheckControlPath(oCheckbox as Object, oTextBox as Object, ByVal bDoEnable as Boolean)
 374 Dim sPath as String
 375         If Not bDoEnable Then
 376                 CheckControlPath = False
 377         ElseIf oCheckbox.State = 0 Then
 378                 CheckControlPath = True
 379         Else
 380                 sPath = ConvertToUrl(Trim(oTextBox.Text))
 381                 CheckControlPath = oUcb.Exists(sPath)
 382         End If
 383 End Function
 384
 385
 386 Function CheckInputPaths() as Boolean
 387 Dim bChangePage as Boolean
 388         bChangePage = CheckTextBoxPath(ImportDialog.txtTemplateImportPath, True, False, sTitle, False)
 389         bChangePage = CheckTextBoxPath(ImportDialog.txtTemplateExportPath, bChangePage, True, sTitle, False)
 390         bChangePage = CheckTextBoxPath(ImportDialog.txtDocumentImportPath, bChangePage, False, sTitle, False)
 391         bChangePage = CheckTextBoxPath(ImportDialog.txtDocumentExportPath, bChangePage, True, sTitle, False)
 392         CheckInputPaths = bChangePage
 393 End Function
 394
 395
 396 Function CheckTextBoxPath(oTextBox as Object, ByVal bCheck as Boolean, bCreateNew as Boolean, sTitle as String, bgetResources as Boolean) as Boolean
 397 Dim iCreate as Integer
 398 Dim sQueryMessage as String
 399 Dim sUrlPath as String
 400 Dim sMessageNoDir as String
 401 Dim sShowPath as String
 402 Dim oLocUcb as Object
 403         oLocUcb = createUnoService(&quot;com.sun.star.ucb.SimpleFileAccess&quot;)
 404         If bGetResources Then
 405                 If InitResources(&quot;ImportWizard&quot;) then
 406                         sNoDirCreation = GetResText(&quot;NoDirCreation&quot;)
 407                         sMsgDirNotThere = GetResText(&quot;MsgDirNotThere&quot;)
 408                         sQueryForNewCreation = GetResText(&quot;QueryfornewCreation&quot;)
 409                 Else
 410                         CheckTextBoxPath() = False
 411                         Exit Function
 412                 End If
 413         End If
 414         If oTextBox.Enabled Then
 415                 If bCheck Then
 416                         sShowPath = oTextBox.Text
 417                         sUrlPath = ConvertToUrl(sShowPath)
 418                         If Not oLocUcb.Exists(sUrlPath) Then
 419                                 If Not bCreateNew Then
 420                                         &apos; Sourcedirectories must be existing, Targetdirectories may be created new
 421                                         sQueryMessage = ReplaceString(sMsgDirNotThere, sShowPath,&quot;%1&quot;)
 422                                         Msgbox(sQueryMessage,16,sTitle)
 423                                         CheckTextBoxPath() = False
 424                                         Exit Function
 425                                 Else
 426                                         sQueryMessage = ReplaceString(sMsgDirNotThere, sShowPath,&quot;%1&quot;)
 427                                         sQueryMessage = sQueryMessage &amp; Chr(13) &amp; sQueryForNewCreation
 428                                         iCreate = Msgbox (sQueryMessage, 36, sTitle)
 429                                         If iCreate = 6 Then
 430                                                 On Local Error Goto NOVALIDPATH
 431                                                 CreateFolder(sUrlPath)
 432                                                 If Not oLocUcb.Exists(sUrlPath) Then
 433                                                         Goto NOVALIDPATH
 434                                                 End If
 435                                         Else
 436                                                 CheckTextBoxPath() = False
 437                                                 Exit Function
 438                                         End If
 439                                 End If
 440                         End If
 441                         CheckTextBoxPath() = True
 442                 Else
 443                         CheckTextBoxPath() = False
 444                 End If
 445         Else
 446                 CheckTextBoxPath() = True
 447         End If
 448         Exit Function
 449 NOVALIDPATH:
 450         sMessageNoDir = ReplaceString(sNoDirCreation, sShowPath, &quot;%1&quot;)
 451         Msgbox(sMessageNoDir, 16, sTitle)
 452         CheckTextBoxPath() = False
 453 End Function
 454
 455
 456 Sub InitializeProgressPage(oDialog as Object)
 457   oDialog.LabelRetrieval.FontWeight = com.sun.star.awt.FontWeight.NORMAL
 458   oDialog.LabelCurProgress.FontWeight = com.sun.star.awt.FontWeight.BOLD
 459 End Sub
 460
 461
 462 Sub     SetProgressDisplay(AbsFound as Integer)
 463         ImportDialog.LabelRetrieval.Label = sProgressPage_2 &amp;  &quot;  &quot; &amp; ReplaceString(sProgressPage_5, Str(AbsFound) &amp; &quot; &quot;, &quot;%1&quot;)
 464         ImportDialog.LabelCurDocumentRetrieval.Label =  sProgressFound &amp; &quot; &quot; &amp; CStr(AbsDocuFound) &amp;  &quot; &quot; &amp; sProgressMoreDocs
 465         ImportDialog.LabelCurTemplateRetrieval.Label = sProgressFound &amp; &quot; &quot; &amp; CStr(AbsTemplateFound) &amp; &quot; &quot; &amp; sProgressMoreTemplates
 466 End Sub
 467
 468 Sub TakoverFolderName(aEvent as Object)
 469 Dim RefControlName as String
 470 Dim oRefControl
 471         RefControlName = aEvent.Source.Model.Tag
 472         oRefControl = ImportDialogArea.GetControl(RefControlName)
 473         GetFolderName(oRefControl.Model)
 474         ToggleNextButton()
 475 End Sub
 476
 477
 478 Sub FinalizeDialogButtons()
 479         ImportDialog.cmdShowLogFile.Enabled = ((Isnull(oLogDocument) = False) And (ImportDialog.chkLogfile.State = 1))
 480         ImportDialog.cmdCancel.Enabled = False
 481         ImportDialog.cmdGoOn.Label = sCloseButton
 482         ImportDialog.cmdGoOn.Enabled = True
 483 End Sub
 484 </script:module>