From 1887103742c41e3c490952c6f3f96babae42dbc5 Mon Sep 17 00:00:00 2001
From: Georgy Litvinov <git@litvinovg.pro>
Date: Wed, 4 Dec 2019 21:10:44 +0300
Subject: [PATCH] Set default font when Search descriptor works incorrect

---
 IPHRedaction/Clean.xba | 5 ++++-
 description.xml        | 2 +-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/IPHRedaction/Clean.xba b/IPHRedaction/Clean.xba
index 5e6088f..7150cb0 100644
--- a/IPHRedaction/Clean.xba
+++ b/IPHRedaction/Clean.xba
@@ -110,6 +110,9 @@ Private Sub convertFontsToCharStyles
 	  founds = Thiscomponent.findFirst(SDesc)
 	  do while not isNull(founds)
 	    curFont = founds.CharFontName
+        If IsEmpty(curFont) Then
+            curFont = &quot;IPH Astra Serif&quot;
+        EndIf
 	    If curFont &lt;&gt; &quot;IPH Astra Serif&quot; AND curFont &lt;&gt; &quot;&quot; Then
 	        If Not DocHasCharStyle(oDoc,curFont) Then
 		        oProps() = Array(CreateProperty(&quot;CharFontName&quot;, curFont))
@@ -929,4 +932,4 @@ Private Function getStyleNames(oFamily,bLocalized as Boolean, _
 	Endif
 	xArray(iUB) = vNextElement
 End Sub
-</script:module>
\ No newline at end of file
+</script:module>
diff --git a/description.xml b/description.xml
index cf1ea30..317e473 100644
--- a/description.xml
+++ b/description.xml
@@ -3,7 +3,7 @@
              xmlns:dep="http://openoffice.org/extensions/description/2006"
              xmlns:xlink="http://www.w3.org/1999/xlink">
   <identifier value="pro.litvinovg.Redaction" />
-  <version value="0.3.0" />
+  <version value="0.3.1" />
   <platform value="all" />
   <display-name>
     <name lang="en">Redaction for publishing in Institute of philosophy</name>