From ed5c725e46e7764c20ab848eba06d8308a69141b Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Tue, 8 Dec 2020 20:53:12 +0100
Subject: [PATCH] Replace DOI with correct characters

---
 Redaction/Validation.xba | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/Redaction/Validation.xba b/Redaction/Validation.xba
index d2ba365..1e17055 100644
--- a/Redaction/Validation.xba
+++ b/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 markval19
+<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval20
 
 End Sub
 
@@ -145,7 +145,9 @@ 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})[Х]{1,5}&quot;,&quot;X&quot;)
+    AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[OО]{1,5}&quot;,&quot;0&quot;)
+    AskAndReplace(&quot;(?&lt;=DOI[0-9. /XVI:‒–—−ХOО?-]{1,50})[‒–—−]{1,5}&quot;,&quot;-&quot;)
 	StopTracking
 	showTrackedChanges
 End Sub