preliminary looped corpus header
diff --git a/vrt2tei.pl b/vrt2tei.pl
index 81c995d..b1f6b34 100755
--- a/vrt2tei.pl
+++ b/vrt2tei.pl
@@ -10,7 +10,7 @@
#
# using XML::Twig , see http://www.xmltwig.org/, https://metacpan.org/pod/XML::Twiga
#
-# usage: see below the usage function
+# usage: see below the usage fugnction
# Usage: ./vrt2tei.pl <vrtxmlfile.xml> <outfile>
# <vrtxmlfile>: xml-ised vrt file
#
@@ -92,7 +92,7 @@
# open result file and initialise filehandle
-open(my $OUT, ">> $ARGV[1]") || die("cannot open file: $ARGV[1]");
+open(my $OUT, "> $ARGV[1]") || die("cannot open file: $ARGV[1]");
@@ -156,13 +156,19 @@
sub insertCorpusHeader{
my ($root) =@_;
+ my @array = split(/\//, $ARGV[0]);
+ my $l = scalar(@array);
+ my $source = $array[$l-1];
+ $source =~ s/\.xml//;
+ $source = $source . " from KLK-FI"; # for the time being; TODO
+
my $teiHeader = $root ->insert_new_elt("first_child", 'teiHeader');
my $fileDesc = $teiHeader ->insert_new_elt("last_child", 'fileDesc');
my $profileDesc = $teiHeader ->insert_new_elt("last_child", 'profileDesc');
my $titleStmt = $fileDesc ->insert_new_elt("last_child", 'titleStmt');
my $title = $titleStmt ->insert_new_elt("last_child", 'title');
- $title ->set_text(" KLK-fi-2021 for EuReCo");
+ $title ->set_text($source . " from KLK-fi-2021 for EuReCo");
my $publicationStmt = $fileDesc ->insert_new_elt("last_child", 'publicationStmt');
my $distributor = $publicationStmt->insert_new_elt("last_child", 'distributor');
@@ -170,7 +176,7 @@
my $sourceDesc = $fileDesc ->insert_new_elt("last_child", 'sourceDesc');
my $bibl = $sourceDesc ->insert_new_elt("last_child", 'bibl');
- $bibl ->set_text("ToDo");
+ $bibl ->set_text($source);
my $langUsage = $profileDesc ->insert_new_elt("last_child", 'langUsage');
my $language = $langUsage ->insert_new_elt("last_child", 'language');
@@ -539,8 +545,8 @@
# $w_element->set_att("norm", $tags[3]); # tag abuse of @norm
$w_element->set_att("pos", $tags[4]);
$w_element->set_att("msd", $tags[5]);
- $w_element->set_att("head", $tags[6]);
- $w_element->set_att("deprel", $tags[7]);
+#TMP $w_element->set_att("head", $tags[6]);
+#TMP $w_element->set_att("deprel", $tags[7]);
}