use ->copy on textHeader twig
diff --git a/vrt2tei.pl b/vrt2tei.pl
index 0356dbe..53ad78d 100755
--- a/vrt2tei.pl
+++ b/vrt2tei.pl
@@ -149,7 +149,7 @@
},
twig_handlers => {
# text => \&text
- text => sub{text(@_, $textHeader)}
+ text => sub{text(@_, $textHeader->copy)} # copy must be because textHeader will be flushed with $twig in the <text> handler;
},
# dtd_handlers => { # ToDo for I5
# \&set_dtd;
@@ -255,6 +255,13 @@
# set vrt <text> to <TEI> and delete all attributes after they were were saved above
$text->del_atts;
$text->set_gi("TEI");
+
+ # !!!!!!!!!!!!!!!!!!
+ # ToDo: Generate a proper textsigle in TEI/@xml:id that can be converted into a textsigle
+
+
+
+
#------------------------------------------------------------------
# create the <tei:text>, <body>, <div> elements inside <TEI>