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

validation status indicator

Browse source
This commit is contained in:
Georgy Litvinov 2020-07-06 11:49:35 +02:00
parent e5244b8259
commit 9dd59609c1
4 changed files with 17 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
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.8.5&quot; Public Const redactionExtensionVersion = &quot;0.8.6&quot;
Function initRedactionConfiguration() Function initRedactionConfiguration()
On Error Goto exceptionHandler On Error Goto exceptionHandler
Dim regFactory As Object Dim regFactory As Object

16
Redaction/Validation.xba
View file

@ -1,6 +1,6 @@
<?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="Validation" script:language="StarBasic">Sub markval9 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval10
End Sub End Sub
@ -34,14 +34,25 @@ Sub validateButton
Dim needExtendedInfo As Boolean Dim needExtendedInfo As Boolean
Dim config As Object Dim config As Object
config = initRedactionConfiguration() config = initRedactionConfiguration()
Dim statusIndicator as Object
statusIndicator = ThisComponent.getCurrentController.statusIndicator
statusIndicator.Start(getTranslation(&quot;validationStarted&quot;),100)
badText = false badText = false
badNumberings = false badNumberings = false
footnotesReport = noteSingsCheck footnotesReport = noteSingsCheck
statusIndicator.setValue(10)
graphicsReport = checkGraphics graphicsReport = checkGraphics
statusIndicator.setValue(20)
sectionsReport = checkSectionsInTables sectionsReport = checkSectionsInTables
statusIndicator.setValue(30)
outlineInNotesReport = checkNotesOutline() outlineInNotesReport = checkNotesOutline()
statusIndicator.setValue(40)
outlinePageStylesReport = checkHeadingsInHeadersFooters outlinePageStylesReport = checkHeadingsInHeadersFooters
statusIndicator.setValue(50)
oulineInTablesReport = checkHeadingsInTextTables oulineInTablesReport = checkHeadingsInTextTables
statusIndicator.setValue(60)
If outlineInNotesReport &lt;&gt; &quot;&quot; Then If outlineInNotesReport &lt;&gt; &quot;&quot; Then
MsgBox outlineInNotesReport MsgBox outlineInNotesReport
EndIf EndIf
@ -72,7 +83,7 @@ Sub validateButton
EndIf EndIf
printNumberingSymbols(needExtendedInfo) printNumberingSymbols(needExtendedInfo)
statusIndicator.setValue(80)
If badText OR badNumberings OR footnotesReport &lt;&gt; &quot;&quot; OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then If badText OR badNumberings OR footnotesReport &lt;&gt; &quot;&quot; OR graphicsReport &lt;&gt; &quot;&quot; Or outlineInNotesReport &lt;&gt; &quot;&quot; Or sectionsReport &lt;&gt; &quot;&quot; OR oulineInTablesReport &lt;&gt; &quot;&quot; OR outlinePageStylesReport &lt;&gt; &quot;&quot; Then
MsgBox getTranslation(&quot;validationWarning&quot;) MsgBox getTranslation(&quot;validationWarning&quot;)
If badText Then If badText Then
@ -82,6 +93,7 @@ Sub validateButton
Else Else
MsgBox getTranslation(&quot;validationSuccess&quot;) MsgBox getTranslation(&quot;validationSuccess&quot;)
EndIf EndIf
statusIndicator.end()
End Sub End Sub
Private Function checkGraphics() As String Private Function checkGraphics() As String

2
build.gradle
View file

@ -1,4 +1,4 @@
def releaseVersion = "0.8.5" def releaseVersion = "0.8.6"
task oxt(type: Zip) { task oxt(type: Zip) {
dependsOn = [ 'setVersion','setVersionInBasicCode' ] dependsOn = [ 'setVersion','setVersionInBasicCode' ]
from './' from './'

2
description.xml
View file

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8" standalone="no"?> <?xml version="1.0" encoding="UTF-8" standalone="no"?>
<description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> <description xmlns="http://openoffice.org/extensions/description/2006" xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.Redaction"/> <identifier value="pro.litvinovg.Redaction"/>
<version value="0.8.5"/> <version value="0.8.6"/>
<platform value="all"/> <platform value="all"/>
<display-name> <display-name>
<name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name> <name lang="en">Cleaning and validation documents for publishing in html and epub with pagination</name>