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

Check extension properties on config initialization

Browse source
This commit is contained in:
Georgy Litvinov 2020-11-08 15:08:22 +01:00
parent da680a506d
commit 09cb1f1d90
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
Redaction/Configuration.xba
View file

@ -1,24 +1,30 @@
<?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.10&quot; Public Const redactionExtensionVersion = &quot;0.9.8&quot;
Function initRedactionConfiguration() Function initRedactionConfiguration()
On Error Goto exceptionHandler On Error Goto exceptionHandler
Dim regFactory As Object Dim regFactory As Object
Dim reg As Object Dim reg As Object
Dim redactionProps As Object Dim redactionProps As Object
Dim props(2) As New com.sun.star.beans.PropertyValue Dim props(2) As New com.sun.star.beans.PropertyValue
Dim propSetInfo As Object
regFactory = CreateUnoService(&quot;com.sun.star.ucb.Store&quot;) regFactory = CreateUnoService(&quot;com.sun.star.ucb.Store&quot;)
reg = regFactory.createPropertySetRegistry(redactionExtensionName) reg = regFactory.createPropertySetRegistry(redactionExtensionName)
redactionProps = reg.openPropertySet(redactionExtensionName, TRUE) redactionProps = reg.openPropertySet(redactionExtensionName, TRUE)
redactionProps.addProperty(&quot;fixes_russian_iph&quot;, 128, &quot;true&quot;) propSetInfo = redactionProps.getPropertySetInfo()
redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;) If Not propSetInfo.hasPropertyByName(&quot;fixes_russian_iph&quot;) Then
redactionProps.addProperty(&quot;fixes_russian_iph&quot;, 128, &quot;true&quot;)
EndIf
If Not propSetInfo.hasPropertyByName(&quot;complexity&quot;) Then
redactionProps.addProperty(&quot;complexity&quot;, 128, &quot;user&quot;)
EndIf
exceptionHandler: exceptionHandler:
Resume Next Resume Next
On Error Goto exceptionHandler2 On Error Goto exceptionHandler2
redactionProps.addProperty(&quot;defaultTemplate&quot;, 128, &quot;Статья.ott&quot;) If Not propSetInfo.hasPropertyByName(&quot;complexity&quot;) Then
redactionProps.addProperty(&quot;defaultTemplate&quot;, 128, &quot;Статья.ott&quot;)
EndIf
exceptionHandler2: exceptionHandler2:
Resume Next Resume Next
initRedactionConfiguration = redactionProps initRedactionConfiguration = redactionProps