aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ekdosis.dtx23
1 files changed, 17 insertions, 6 deletions
diff --git a/ekdosis.dtx b/ekdosis.dtx
index af96445..2f37a27 100644
--- a/ekdosis.dtx
+++ b/ekdosis.dtx
@@ -705,7 +705,13 @@ function ekdosis.newhand(id, witid, siglum, description)
705 table.insert(idsRend, {xmlid = id, head = siglum}) 705 table.insert(idsRend, {xmlid = id, head = siglum})
706 table.sort(idsRend, function(a ,b) return(#a.xmlid > #b.xmlid) end) 706 table.sort(idsRend, function(a ,b) return(#a.xmlid > #b.xmlid) end)
707 local indexwit = getindex(witid, listWit) 707 local indexwit = getindex(witid, listWit)
708 listWit[indexwit].handDesc = {xmlid = id, head = siglum, detailsDesc = description} 708 -- listWit[indexwit].handDesc = {xmlid = id, head = siglum, detailsDesc = description}
709 if listWit[indexwit].handDesc == nil
710 then
711 listWit[indexwit].handDesc = {}
712 else
713 end
714 table.insert(listWit[indexwit].handDesc, {xmlid = id, head = siglum, detailsDesc = description})
709 end 715 end
710 return true 716 return true
711end 717end
@@ -855,12 +861,17 @@ function ekdosis.openteistream()
855 end 861 end
856 if listWit[i].handDesc ~= nil then 862 if listWit[i].handDesc ~= nil then
857 f:write("<physDesc>", "\n") 863 f:write("<physDesc>", "\n")
858 f:write("<handDesc xml:id=\"", listWit[i].handDesc.xmlid, "\">", "\n") 864 local j = 1
859 f:write("<head>", ekdosis.textotei(listWit[i].handDesc.head), "</head>", "\n") 865 while listWit[i].handDesc[j]
860 if listWit[i].handDesc.detailsDesc == "" then else 866 do
861 f:write("<p>", ekdosis.textotei(listWit[i].handDesc.detailsDesc), "</p>", "\n") 867 f:write("<handDesc xml:id=\"", listWit[i].handDesc[j].xmlid, "\">", "\n")
868 f:write("<head>", ekdosis.textotei(listWit[i].handDesc[j].head), "</head>", "\n")
869 if listWit[i].handDesc[j].detailsDesc == "" then else
870 f:write("<p>", ekdosis.textotei(listWit[i].handDesc[j].detailsDesc), "</p>", "\n")
871 end
872 j = j + 1
873 f:write("</handDesc>", "\n")
862 end 874 end
863 f:write("</handDesc>", "\n")
864 f:write("</physDesc>", "\n") 875 f:write("</physDesc>", "\n")
865 else end 876 else end
866 if listWit[i].history ~= nil then 877 if listWit[i].history ~= nil then