litvinovg/cleanandvalidate
1
0
Fork 0
Code Issues 4 Pull requests Projects Releases 50 Packages Wiki Activity Actions

Fix template path option

Browse source
This commit is contained in:
Georgy Litvinov 2021-01-14 12:09:53 +01:00
parent 34b8e0ade3
commit feb2f7e5b9
1 changed files with 4 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Redaction/Configuration.xba
View file

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot; <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Configuration" script:language="StarBasic" script:moduleType="normal">Public Const redactionExtensionName As String = &quot;cleanAndValidate&quot;
Public Const redactionExtensionVersion = &quot;0.9.21&quot; Public Const redactionExtensionVersion = &quot;0.9.22&quot;
Function initRedactionConfiguration() Function initRedactionConfiguration()
On Error Goto exceptionHandler On Error Goto exceptionHandler
Dim regFactory As Object Dim regFactory As Object
@ -22,7 +22,7 @@ Function initRedactionConfiguration()
exceptionHandler: exceptionHandler:
Resume Next Resume Next
On Error Goto exceptionHandler2 On Error Goto exceptionHandler2
If Not propSetInfo.hasPropertyByName(&quot;complexity&quot;) Then If Not propSetInfo.hasPropertyByName(&quot;defaultTemplate&quot;) Then
redactionProps.addProperty(&quot;defaultTemplate&quot;, 128, &quot;Статья.ott&quot;) redactionProps.addProperty(&quot;defaultTemplate&quot;, 128, &quot;Статья.ott&quot;)
EndIf EndIf
exceptionHandler2: exceptionHandler2:
@ -165,6 +165,7 @@ Sub setDeafultTemplate()
config.setPropertyValue(&quot;defaultTemplate&quot;,fileName) config.setPropertyValue(&quot;defaultTemplate&quot;,fileName)
Dim templatePath As String Dim templatePath As String
templatePath = getTemplatePath() templatePath = getTemplatePath()
MkDir(templatePath)
FileCopy(selectedTemplate, templatePath &amp; &quot;/&quot; &amp; fileName) FileCopy(selectedTemplate, templatePath &amp; &quot;/&quot; &amp; fileName)
End Sub End Sub
@ -198,4 +199,4 @@ End Sub
End If End If
getFileURLDialog = &quot;&quot; getFileURLDialog = &quot;&quot;
End Function End Function
</script:module> </script:module>