Removed ? from DOI bad characters check

Redaction/Configuration.xba

@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!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;
-Public Const redactionExtensionVersion = &quot;0.9.13&quot;
+Public Const redactionExtensionVersion = &quot;0.9.15&quot;
 Function initRedactionConfiguration()
 	On Error Goto exceptionHandler
 	Dim regFactory As Object

Redaction/Validation.xba

@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <!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 markval18
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval19
 
 End Sub
 
@@ -73,7 +73,7 @@ Sub validateButton
 	If sectionsReport &lt;&gt; &quot;&quot; Then
 		MsgBox sectionsReport
 	EndIf
-	If isInDoc(&quot;[\uE000-\uF8FF]&quot;) Or isInDoc(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[ХOО‒–—−?]{1,5}&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	
 	EndIf
 
@@ -145,7 +145,7 @@ End Function
 Private Sub removeBadCharacters
 	StartTracking
     AskAndReplace(&quot;[\uE000-\uF8FF]+&quot;,&quot;&quot;)
-    AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[ХOО‒–—−?]{1,5}&quot;,&quot;&quot;)
+    AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[ХOО‒–—−]{1,5}&quot;,&quot;&quot;)
 	StopTracking
 	showTrackedChanges
 End Sub