adapt flarray to new columns of sources files
diff --git a/vrt2tei.pl b/vrt2tei.pl
index 14b1252..3add1e7 100755
--- a/vrt2tei.pl
+++ b/vrt2tei.pl
@@ -243,23 +243,23 @@
# (ToDo: the following hashes could probably conflated into an array of hashes or so)
- # set full titles ($flarray[1]) as keys:
- $corpusids{$flarray[2]} = $flarray[0];
- $srcpublids{$flarray[2]} = $flarray[1];
- $srcfullnames{$flarray[2]} = $flarray[2];
- $srcpubplaces{$flarray[2]} = $flarray[7];
- $srcpublishers{$flarray[2]} = $flarray[8];
- $srctexttypes{$flarray[2]} = $flarray[5];
- $srctextlangs{$flarray[2]} = $flarray[6];
+ # set full titles ($flarray[4]) as keys:
+ $corpusids{$flarray[4]} = $flarray[2];
+ $srcpublids{$flarray[4]} = $flarray[3];
+ $srcfullnames{$flarray[4]} = $flarray[4];
+ $srcpubplaces{$flarray[4]} = $flarray[9];
+ $srcpublishers{$flarray[4]} = $flarray[10];
+ $srctexttypes{$flarray[4]} = $flarray[7];
+ $srctextlangs{$flarray[4]} = $flarray[8];
- # also set simple titles ($flarray[2]) as keys:
- $corpusids{$flarray[3]} = $flarray[0];
- $srcpublids{$flarray[3]} = $flarray[1];
- $srcfullnames{$flarray[3]} = $flarray[2];
- $srcpubplaces{$flarray[3]} = $flarray[7];
- $srcpublishers{$flarray[3]} = $flarray[8];
- $srctexttypes{$flarray[3]} = $flarray[5];
- $srctextlangs{$flarray[3]} = $flarray[6];
+ # also set simple titles ($flarray[5]) as keys:
+ $corpusids{$flarray[5]} = $flarray[2];
+ $srcpublids{$flarray[5]} = $flarray[3];
+ $srcfullnames{$flarray[5]} = $flarray[4];
+ $srcpubplaces{$flarray[5]} = $flarray[9];
+ $srcpublishers{$flarray[5]} = $flarray[10];
+ $srctexttypes{$flarray[5]} = $flarray[7];
+ $srctextlangs{$flarray[5]} = $flarray[8];
}
close($SOURCES);