diff options
-rw-r--r-- | ekdosis.dtx | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ekdosis.dtx b/ekdosis.dtx index ce49ed7..640b91d 100644 --- a/ekdosis.dtx +++ b/ekdosis.dtx | |||
@@ -1733,12 +1733,13 @@ function ekdosis.closeteistream(opt) | |||
1733 | if xmlbibresource ~= nil then | 1733 | if xmlbibresource ~= nil then |
1734 | bibf = assert(io.open(xmlbibresource, "r")) | 1734 | bibf = assert(io.open(xmlbibresource, "r")) |
1735 | t = bibf:read("*a") | 1735 | t = bibf:read("*a") |
1736 | t = string.gsub(t, " corresp%=%b\"\"", "") | 1736 | t = string.gsub(t, "%s+corresp%=%b\"\"", "") |
1737 | t = string.gsub(t, "\n\n", "\n") | ||
1737 | f:write("<back>", "\n") | 1738 | f:write("<back>", "\n") |
1738 | f:write("<listBibl>", "\n") | 1739 | f:write("<listBibl>", "\n") |
1739 | for i in string.gmatch(t, "<biblStruct.->.-</biblStruct>") | 1740 | for i in string.gmatch(t, "<biblStruct.->.-</biblStruct>") |
1740 | do | 1741 | do |
1741 | f:write("\n", i, "\n") | 1742 | f:write(i, "\n") |
1742 | end | 1743 | end |
1743 | f:write("</listBibl>", "\n") | 1744 | f:write("</listBibl>", "\n") |
1744 | f:write("</back>", "\n") | 1745 | f:write("</back>", "\n") |