Added check for bad characters in DOI

This commit is contained in:
Georgy Litvinov 2020-12-08 14:51:19 +01:00
parent 84dfebf3f6
commit b5e319b5b3
2 changed files with 4 additions and 3 deletions

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 markval16 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval17
End Sub End Sub
@ -72,7 +72,7 @@ Sub validateButton
If sectionsReport &lt;&gt; &quot;&quot; Then If sectionsReport &lt;&gt; &quot;&quot; Then
MsgBox sectionsReport MsgBox sectionsReport
EndIf EndIf
If isInDoc(&quot;[\uE000-\uF8FF]&quot;) Then If isInDoc(&quot;[\uE000-\uF8FF]&quot;) Or isInDoc(&quot;(?&lt;=DOI[0-9. /XVI:ХOО?-]{1,50})[ХOО?]{1,5}&quot;) Then
badText = true badText = true
EndIf EndIf
@ -144,6 +144,7 @@ End Function
Private Sub removeBadCharacters Private Sub removeBadCharacters
StartTracking StartTracking
AskAndReplace(&quot;[\uE000-\uF8FF]+&quot;,&quot;&quot;) AskAndReplace(&quot;[\uE000-\uF8FF]+&quot;,&quot;&quot;)
AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:ХOО?-]{1,50})[ХOО?]{1,5}&quot;,&quot;&quot;)
StopTracking StopTracking
showTrackedChanges showTrackedChanges
End Sub End Sub

View file

@ -1 +1 @@
version=0.9.12 version=0.9.13