From dde6ac5adfa472abdf8f179ef2774abba59519ea Mon Sep 17 00:00:00 2001
From: the Arioch <the_Arioch@nm.ru>
Date: Wed, 12 Feb 2020 11:32:45 +0300
Subject: [PATCH 1/2] OpenOffice.org XML-2003 read

---
 zexmlss/src/zexmlssutils.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/zexmlss/src/zexmlssutils.pas b/zexmlss/src/zexmlssutils.pas
index ea268e5..5acb9a6 100644
--- a/zexmlss/src/zexmlssutils.pas
+++ b/zexmlss/src/zexmlssutils.pas
@@ -1969,8 +1969,12 @@ var
   end;
 
   function IfTag(const TgName: string; const TgType: integer): boolean;
+  var s: string; i: integer;
   begin
-    result := (_xml.TagName = TgName) and (_xml.TagType = TgType);
+    s := _xml.TagName;
+    i := Pos(':', s);
+    if i > 0 then Delete(s, 1, i);
+    result := (s = TgName) and (_xml.TagType = TgType);
   end;
 
   //<Style> ... </Style>
-- 
2.19.2.windows.1